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

Question

Информатика

Василиск

30 декабря, 23:54

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

+3

Ответы (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.