С клавиатуры вводится сначала количество чисел, а потом сами числа. Найдите

С клавиатуры вводится поначалу количество чисел, а потом сами числа. Найдите сумму всех чётных чисел последовательности.

Задать свой вопрос
2 ответа
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  ReadSeqInteger(ReadInteger).Where(t-gt;t.IsEven).Sum.Println
end.

Пример
8
5 -3 12 7 14 23 18 -20
24
Var

i, x, sum, n: integer;

begin

read(n);

for i:=1 to n do begin read(x); if x mod 2=0 then sum:=sum+x end;

writeln(sum);

end.
Васька Лигуай
program proba;var i,x,sum,n:integer;beginread(n);for i:=1 to n do begin read(x); if x mod 2=0 then sum:=sum+x end;writeln(sum);end.
Михон
main.pas(6,24) Warning: Variable "sum" does not seem to be initializedLinking main8 lines compiled, 0.1 sec1 warning(s) issued/usr/bin/ld: warning: link.res contains output sections; did you forget -T?
Арсений
вот такую ошибку выдаёт
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт