Ввести 7 чисел, и посчитать количество больше нуля и сумму чисел меньше или равных 0.

uses crt;var a:array[1..7] of integer;s,n,i:integer;beginwriteln('Введите 7 чисел:');for i:=1 to 7 do begin readln(a[i]);end; n:=0; s:=0; for i:=1 to 7 do begin if a[i]>0 then n:=n+1 else s:=s+a[i]; end; writeln('Количество положительных чисел: ',n); writeln('Сумма неположительных чисел: ',s);end.

vars,n,i,a:integer;beginFor i:=1 to 7 do beginreadln(a);if a>0 thenn:=n+1elses:=s+a;end;writeln('polozitelnih=', n, ' summa otrizatelnih=', s);end.