Сформировать двумерный массив А (5,4). Всем четным элементам полученного массива присвоить значение максимального элемента данного массива.

На паскале, если не на паскале нужно, то укажите какой необходим.

const m = 5;

n = 4;

var i, j, max: integer;

a: array[1 ... m, 1 ... n] of integer;

begin

writeln ('Исходный массив: ') ;

for i : = 1 to m do begin

for j : = 1 to n do begin

a[i, j] : = random (20) ;

write (a[i, j]:3) ;

if (a[i, j] > max) then max : = a[i, j];

end;

writeln;

end;

writeln ('Максимальный элемента: ', max) ;

writeln ('Конечный массив: ') ;

for i : = 1 to m do begin

for j : = 1 to n do begin

if (a[i, j] mod 2 = 0) then a[i, j] : = max;

write (a[i, j]:3) ;

end;

writeln;

end;

end.