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

0 голосов
92 просмотров

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


Информатика (46 баллов) | 92 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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;<br>    end;
    writeln(k,s);
End.

(53.1k баллов)