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

Question

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

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];</p>

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

                           end;

  writeln(s,', ',n);

end.