Question

Составьте программу заполнения массива из 100 чисел случайными значениями из диапозона от -20 до 20.Подсчитайте в этом массиве количество положительных и количество отрицательных чисел

Answer 1

program gt;
var a:array[1..100]of integer;
i,l,p:integer;
begin
randomize;
l:=0;
p:=0;for i:=1 to 100 do
begin
a[i]:=random(40)-20;
if(a[i]>0)then l:=l+1;
if(a[i]<0)then p:=p+1;
end;
writeln('кол-во пол, чисел=',l);
writeln('кол-во отриц, чисел=',p);
end.