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<0)and(a mod 2=0)and(a mod 3=0)

  then s:=s+a;

end;

writeln('s = ',s);

end.

Пример:

n = 10

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

s = -36