Question

Выводится на экран последовательность 20 случайных чисел из промежутка
[-10,10]. Определить количество отрицательных чисел больших -5 в данной
последовательности.

Answer 1

var
a:array[1..1000]of integer;
i,k:integer;
begin
for i:=1 to 20 do
a[i]:=random(20)-10;
for i:=1 to 20 do
write(a[i],' ');
for i:=1 to 20 do begin
if (a[i]<0)and(a[i]>(-5))
then k:=k+1;
end;
writeln;
writeln(k);
end.