Посчитать количество чисел меньше 50. в массиве 20 элементов

Question

Информатика

Наталия

30 октября, 16:07

Посчитать количество чисел меньше 50. в массиве 20 элементов

+5

Ответы (1)

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

Светислава · Answer 1

Var ar:array[1 ... 20] of integer;

i, k:integer;

begin;

randomize;

writeln ('Array:') ;

for i:=1 to 20 do

begin;

ar[i]:=random (100) ;

write (ar[i]:4) ;

if ar[i]<50 then inc (k) ;

end;

writeln;

writeln ('Result:', k) ;

end.