Напишите программу для подсчета суммы всех положительных и суммы всех отрицательных...

Question

Напишите программу для подсчета суммы всех положительных и суммы всех отрицательных случайных целых чисел из диапазона от –100 до 100. Количество случайных чисел вводиться пользователем.

Answer 1

Var a:array[1..100] of integer;b,c,d:integer;beginc:=0;d:=0;for b:=1 to 100 dobegina[b]:=random(41)-20;writeln('a[',b,']= ',a[b]);if a[b]>0 then c:=c+1;if a[b]<0 then d:=d+1;end;writeln('Количество положительных значений равняется ',c);writeln('Количество отрицательных значений равняется ',d);end.<br>?