Question

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

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.