С клавиатуры вводится 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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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.