С клавиатуры вводится 7 чисел программа; должна найти количество всех положительных чисел и посчитать суммы отрицательных

1

Ответы и объяснения

2013-02-18T18:27:16+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var n,i,s,k:integer;
Begin
    for i:=1 to 7 do Begin
        read(n);
        if n>0 then k:=k+1;
        if n<0 then s:=s+n;
    end;
    writeln(k,s);
End.