С клавиатуры вводится 7 чисел программа; должна найти количество всех положительных чисел и посчитать суммы отрицательных
С клавиатуры вводится 7 чисел программа; должна найти количество всех положительных чисел и посчитать суммы отрицательных
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы