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