Ответы и объяснения

Лучший Ответ!
2012-05-03T18:26:59+04:00

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.