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

Question

Информатика

Андря

28 июня, 12:45

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

+1

Ответы (1)

Знаете ответ на вопрос?

Лукася · 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.