Информатика, опубликовано 2018-08-22 21:02:03 by Гость

ПАСКАЛЬ. Написать программу с использованием МАССИВА. С клавиатуры вводятся 20 целых чисел. Нужно подсчитать сколько из них равны 21.

Ответ оставил Гость

Var a: array [1..20] of integer;
e: integer;
i: byte;
begin
e:=0;
for i:=1 to 20 do
begin
readln (i);
a[i]:=i;
end;
i:=1;
while iif a[i]=21 then e:=e+1;
writeln (e);
end.
Удачи :)

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.