Массив из целых чисел формируется случайным образом на интервале от 5 до 45. Найти сумму четных элементов массива

Быстрее нужно

program z1;

var a: array [1..20] of integer;

i, summa: integer;

begin

summa:= 0;

randomize;

for i:=1 to 20 do

begin

a[i] := random (41)+5;

if a[i] mod 2 = 0 then summa:= summa + a[i];

end;

for i:=1 to 20 do write(a[i], ' ');

writeln;

write('Сумма четных чисел = ', summa);

end.

Жирным я выделил необязательные строки. В них выводятся все значения массива (для проверки работы программы). Если вы считаете это ненужным, то можете удалить.

Объяснение: