Напишите программу вычисляющую сумму четных элементов массива

  • Const n=10;
    var a:array1..n of integer;
    i,s:integer;
    begin
    writeln(Исходный массив:);
    for i:=1 to n do
    begin
    ai:=random(21)-10;
    write(ai, );
    end;
    writeln;
    s:=0;
    for i:=1 to n do
    if ai mod 2 = 0 then s:=s+ai;
    writeln(s = ,s);
    end.

    Пример:
    Исходный массив:
    5 -6 -7 2 3 5 -7 -2 -6 -5
    s = -12

  • // PascalABC.NET 3.1, сборка 1201 от 18.03.2016
    begin
    var a:=ArrRandom(ReadInteger(n=),1,99); a.Println;
    Writeln(Сумма четных ,a.Where(x->x.IsEven).Sum)
    end.

    Тестовое решение:
    n= 15
    40 88 6 42 57 56 80 78 71 56 73 91 74 19 95
    Сумма четных 520

Внимание, только СЕГОДНЯ!