Написать программу. Вводится число N, а затем N чисел. Определить сумму отрицательных двузначных чётных чисел.

Question

Информатика

Мариана

15 февраля, 15:44

Написать программу. Вводится число N, а затем N чисел. Определить сумму отрицательных двузначных чётных чисел.

+4

Ответы (1)

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

Артемидка · Answer 1

Program a;

var n, sum, i, s: integer;

begin

readln (n) ;

for i:=1 to n do

begin

read (s) ;

if (s - 10) and ((s div 10) 0) and ((s mod 2) = 0) then sum:=sum+s;

end;

writeln (sum) ;

end.