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

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.

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.