Заполните матрицу из 8 строк и 5 столбцов случайными числами в интервале [-10; 10] вывести её на экран. Найти сумму всех четных элементов

var a:array [1 ... 8,1 ... 5]of integer;

s, i, k:integer;

Begin

randomize;

for i: = 1 to 8 do begin

for k: = 1 to 5 do begin

a[i, k]: = random (20) - 10;

write (a[i, k]:3,' ') ;

if a[i, k] mod 2 = 0 then s:=s+a[i, k];

end;

writeln;

end;

writeln ('s=', s) ;

End.