найти сумму отрицательных чисел массива и количество четных

Question

Информатика

Симона

6 декабря, 10:30

найти сумму отрицательных чисел массива и количество четных

+1

Ответы (1)

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

Владимирушка · Answer 1

var a: array [1 ... 10] of integer;

s:real;

n, i: integer;

begin

n:=0;

s:=0;

for i:=1 to 10 do begin

readln (a[i]) ;

if a[i]<0 then s:=s+a[i];

if a[i] mod 2 = 0 then n:=n+1;

end;

writeln (s,', ', n) ;

end.