Question

Для массива a1,a2,a3,.....a15 получить сумму его положительных элементов и количество отрицательных элементов.

Answer 1

Var a:array[1..15] of integer;
s,n,i:integer;
begin
for i:=1 to 15 do begin
a[i]:=random(+21)-10;
if a[i]>0 then s:=s+a[i];
if a[i]<0 then n:=n+1;
end;
writeln('Сумма-',s,' Кол-во-',n);
end.