Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от –20 до 20
Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от –20 до 20. Подсчитайте в этом массиве количество положительных и количество отрицательных значений.
program zad_4_nica;
var Rand: array[1..100] of integer;
i, plus, minus: integer;
begin
randomize;
{Заполнение массива случайными числами и вывод их на экран}
for i:=1 to 100 do begin
Rand[i]:=-20+random(41);
write (Rand[i], '; ');
end;
{Подсчет положительных и отрицательных чисел в массиве}
plus:=0;
minus:=0;
for i:=1 to 100 do begin
if Rand[i]>0 then plus:=plus+1
else if Rand[i]<0 then minus:=minus+1;
end;
{Вывод количества положительных и отрицательных чисел в массиве}
writeln;
writeln ('Количество положительных чисел: ', plus);
writeln ('Количество отрицательных чисел: ', minus);
end.