Question

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

Answer 1

Вот программа!Все работает правильно!

Answer 2

Program sadadasf;
var i,l,h,g: integer;   
A: Array[1..101] of integer;
begin 
For i:=1 to 100 do 
begin     
l:=random(41)-20;   
A[i]:=l;   
If l<0 then h:=h+1; 
If l>0 then g:=g+1; 
end;
Writeln('Количество отрицательных чисел:', h);
Writeln('Количество положительных чисел:', g);
end.