Заполните матрицу из 8 строк и 5 столбцов случайными числами…

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.