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

ДАЮ 68 БАЛЛОВ!!!!!!!!!!!!!!!!11

Дана последовательность, состоящая из n чисел, вводимых пользователем с клавиатуры. Вычислить сумму всех отрицательных четных членов последовательности, кратных 3.

Написать программку Pascal ABC

Задать свой вопрос
1 ответ

var n,a,s,i: integer;

begin

write('n = ');

readln(n);

s:=0;

for i:=1 to n do

begin

read(a);

if (alt;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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт