ДАЮ 68 БАЛЛОВ!!!!!!!!!!!!!!!!11Дана последовательность, состоящая из n чисел, вводимых...

Question

ДАЮ 68 БАЛЛОВ!!!!!!!!!!!!!!!!11Дана последовательность, состоящая из n чисел, вводимых пользователем с клавиатуры. Вычислить сумму всех отрицательных четных членов последовательности, кратных 3. Написать программу Pascal ABC

Answer 1

var n,a,s,i: integer;

begin

write('n = ');

readln(n);

s:=0;

for i:=1 to n do

begin

read(a);

if (a

  then s:=s+a;

end;

writeln('s = ',s);

end.

Пример:

n = 10

18 -24 33 -9 42 -12 30 -15 22 -35

s = -36