Question

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

Answer 1

Uses crt;
vara:array[1..20]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('кол-во отрицательных чисел больше -5=',k)
end.