Taakchash
4 год назад
С клавиатуры вводится n целых чисел,неКак узнать сколько положительный и неКак узнать сколько отрицательных,найти сумму положительных. (паскаль)Пожалуйста посчитайте написать программу.
ОТВЕТЫ
Paraskeva
Oct 24, 2020
var i,n,a,sum:integer;
begin
readln(n);
sum:=0;
for i:=1 to n do
begin
readln(a);
if a>0 then
sum:=sum+a
end;
writeln(sum)
end.
begin
readln(n);
sum:=0;
for i:=1 to n do
begin
readln(a);
if a>0 then
sum:=sum+a
end;
writeln(sum)
end.
681
