Ввести 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.

var s,n,i,a:integer; begin For i:=1 to 7 do begin readln(a); if a>0 then n:=n+1 else s:=s+a; end; writeln('polozitelnih=', n, ' summa otrizatelnih=', s); end.