Составьте программу которая заполняет массив с [1..10] случайными целыми числами в...

Question

Составьте программу которая заполняет массив с [1..10] случайными целыми числами в диапазоне от -10 до 20 и выводит количество отрицательных и количество положительных чисел.
Помогите прошу, нужно срочно.!!!!!

Answer 1

Vara:array[1..10]of integer;i,b,c:integer;BeginRandomize;for i:=1 to 10 do begina[i]:=random(31)-10;if a[i]>0 then b:=b+1;if a[i]<0 then c:=c+1;end;writeln('кол-во положительных чисел = ',b,'; кол-во отрицательных чисел = ',c);end.