Дан массив. Подсчитать количество элементов равных 5

Question

Информатика

Даря

29 ноября, 15:12

Дан массив. Подсчитать количество элементов равных 5

+3

Ответы (1)

Знаете ответ на вопрос?

Логвин · Answer 1

Program tref;

var a, i:integer; mas:array[1 ... 10] of integer;

begin

randomize;

for i:=1 to 10 do

begin

mas[i]:=random (50) ;

if (mas[i]=5) then a:=a+1;

writeln (mas[i]) ;

end;

writeln (a) ;

end.

Заполнение массива-рандомное, если хотите, можно изменить на ввод от руки