Question

Задан случайным образом массив А(10) в интервале (-15 до + 15). Вывести кол-во отрицательных, а положительные просуммировать.

Answer 1

program pr;

var count,sum,i:integer;A:array[1..10] of integer;

begin

count:=0; sum:=0;

writeln('Массив:');

for i:=1 to 10 do

begin

A[i]:=random(31)-15;

writeln(A[i]);

if A[i] <0 then count:=count+1 else sum:=sum+A[i];

end;

writeln('Количество отрицательных чисел: ',count,', сумма положительных: ',sum);

end.