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

var

  c, summ:real;

  count, i:integer;

begin

  count := 0;

  summ := 0;

  for i := 1 to 7 do

  begin

    write('Введите число ');

    readln(c);

    if c > 0 then

      count := count + 1

    else

      summ := summ + c;

  end;

  writeln('Количество числел больших 0 равно ', count);

  writeln('Сумма чисел меньших либо равных 0 равна ', summ);

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.