Помогите, срочно!!! Напишите программу, которая в последовательности натуральных чисел

Помогите, безотлагательно!!!
Напишите программу, которая в последовательности естественных чисел определяет сумму чисел, кратных 4 и НЕ оканчивающихся на 8. Программка получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введенные числа не превосходят 30 000. Программка обязана вывести одно число - сумму чисел, кратных 4 и НЕ заканчивающихся на 8.

Игорек Артюгин 2019-09-23 07:30:26

begin var n := ReadInteger(); var SQ := ReadSeqInteger(n); SQ.Where(x->(x mod 4 = 0) and (x mod 10 <> 8)).Sum.Println;end.

Валера Сливцов 2019-09-23 07:32:54

Так пойдет?

Любовь 2019-09-23 07:34:21

Как-то по иному решено

Пашка Доволов 2019-09-23 07:37:25

Но все одинаково спасибо

Эвелина Чедаева 2019-09-23 07:45:21

А как надобно?

Эвелина Истранова 2019-09-23 07:46:11

Сначало: Var: a, d, n: integer; begin writeln ('введите кол-во чисел'); и вот далее не знаю

Аделина 2019-09-23 07:49:07

var n, a, Sum, i: integer;begin Read(n); Sum := 0; for i := 1 to n do begin Read(a); if (a mod 4 = 0) and (a mod 10 <> 8) then Sum += a end; Write(Sum)end.

Anton Ustimov 2019-09-23 07:53:57

Ну пробуйте так.

Руслан Кайс 2019-09-23 08:00:12

Хорошо, спасибо большое

Владислав Тверский 2019-09-23 08:02:01

Перед Read(n); Вставьте ваше Write('Введите кол-во чисел: ');