Turbo Pascal. Одномерные массивы. - есть ответ

danilka474382372, 278 просмотров

-1

Пропустил эту тему в колледже. Сейчас не могу написать программу для решения задачи.

Дан массив, содержащий 20 действительных чисел. Определить, сколько из них отличаются от последнего элемента.

Ответы:

Тюльпан

for i:=1 to Size-1 do
if A[i]<>A[Size]
then Inc(Count);

Без имени

const n = 20;
var
a: Array[1..n] of Real;
i, s: Integer;
begin
for i := 1 to n do
ReadLn(a[i]);
s := 0;
for i := 1 to n - 1 do
if a[i] <> a[n] then Inc(s);
WriteLn('s = ', s);
ReadLn;
end.

kofeek

При чем тут c++?

12 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.