Заполнить массив из 11 элементов случайными числами в интервале [0.50] и найти количество элементов массива больше пяти и меньше двадцати

Question

Информатика

Арсений

29 августа, 20:31

Заполнить массив из 11 элементов случайными числами в интервале [0.50] и найти количество элементов массива больше пяти и меньше двадцати

+3

Ответы (1)

Знаете ответ?

Веруня · Answer 1

Easy

const

n=11;

var

i:integer;

c:integer;

m:array[1 ... n] of integer;

begin

c:=0;

randomize;

for i:=1 to n do

begin

m[i]:=random (51) ;

write (m[i],' ') ;

end;

writeln;

for i:=1 to n do if (m[i]>5) and (m[i]<20) then c:=c+1;

writeln (c) ;

end.