Определите сумму кратных трём отрицательных чисел среди n введённых клавиатуры

Question

Информатика

Манюта

29 сентября, 22:07

Определите сумму кратных трём отрицательных чисел среди n введённых клавиатуры

+2

Ответы (2)

Знаете ответ на вопрос?

Куля · Answer 1

Program n1;

var a, sum, i, n: integer;

begin

readln (n) ;

sum:=0;

for i:=1 to n do

begin

readln (a) ;

if (a mod 3=0) and (a<0) then sum:=sum+a;

end;

writeln (sum) ;

end.

Мануил · Answer 2

Var i, s, a, n: integer;

begin

s:=0;

write ('n = ') ;

readln (n) ;

for i:=1 to n do

begin

readln (a) ;

if ((a mod 3) = 0) and (a<0) then s:=s+a;

end;

writeln;

writeln (s) ;

end.