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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.