const n=5;var a,b:array[1..n,1..n] of integer; i,j: byte; max2,k5:integer;begin randomize; k5:=0; max2:=0; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(1,100); write(a[i,j]:4); if (i=2) and (a[i,j]>max2) then max2:=a[i,j]; if (j=5) and (a[i,j] mod 2 =0) then k5:=k5+1; end; writeln; end; writeln; writeln ('Максимальный элемент 2-ой строки = ',max2); writeln ('Количество четных элементов 5-го столбца = ',k5); end.---------------------------------------------Пример: 2 26 38 58 16 70 24 40 39 35 74 38 69 93 94 64 6 18 56 93 44 86 17 93 56Максимальный элемент 2-ой строки = 70 <br>Количество четных элементов 5-го столбца = 3