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

Const
   N = 20;
Var
   A:array[1..N] of integer;
   i:integer;
   S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив: ');
For i:= 1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    if A[i] mod 2 = 0 then S:=S+A[i];
    End;
WriteLn;
WriteLn('Сумма чётных элементов: ',S);
End.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(20,-99,99); a.Println;
  Writeln('S=',a.Where(x->x.IsEven).Sum)
end.

Пример
47 -39 -65 49 -65 82 -70 37 -4 5 -77 62 26 -7 96 -58 -83 43 74 -20
S=188

1. закончите предложение: «моделью называют объект, имеющий…» - существенные признаки объекта-оригинала 2. закончите предложение: «можно создавать и использовать …» - разные модели объекта 3. укажите примеры информационных моделей: - карта - график зависимости расстояния от времени - выкройка фартука - схема метро 4. укажите примеры знаковых информационных моделей: - словесное описание - формула 5. отметьте пропущенное слово: «формула для вычисления площади прямоугольника является примером … модели» - знаковой 6. отметьте пропущенное слово: «атлас автомобильных дорог является примером … модели» - смешанной 7. укажите пары объектов, о которых можно сказать, что они находятся в отношении «объект – модель»: - болт – чертеж болта - мелодия – нотная запись мелодии

1)

var arr: array [1..12] of integer;

begin

 for var i := 1 to 12 do

   arr[i] := random(-48, -83);

   

 writeln(arr[3] + ' ' + arr[7] + ' ' + arr[11]);

end.

2)

var arr: array [1..9] of double;

begin

 for var i := 1 to 9 do

 begin

   arr[i] := random(15, 40);

   write(arr[i] + ' ');

 end;

 writeln();

 

 var max := arr[1];

 for var i := 2 to 9 do

 begin

   if max < arr[i] then

       max := arr[i];

 end;

 writeln('Max: ' + max);

end.

3)

var arr: array [1..15] of integer;

begin

 for var i := 1 to 9 do

 begin

   arr[i] := random(-10, 35);

   write(arr[i] + ' ');

 end;

 writeln();

 

 write('Нечетные: ');

 for var i := 1 to 9 do

 begin

   if not arr[i] mod 2 = 0 then

       write(arr[i] + ' ');

 end;

end.