Предмет: Информатика,
автор: littlesleep
С клавиатуры вводится 7 чисел программа; должна найти количество всех положительных чисел и посчитать суммы отрицательных
Ответы
Автор ответа:
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;
end;
writeln(k,s);
End.
Похожие вопросы
Предмет: Русский язык,
автор: Polvonov2332
Предмет: Алгебра,
автор: nikitabuzum
Предмет: Математика,
автор: Pomogitepojalyista3
Предмет: Химия,
автор: Sashka53