Дана действительная матрица размера 6x9. Найти среднее арифметическое наибольшего и наименьшего значений ее элементов.

Const N1 = 6; N2 = 9;
var A:array [ 1..N1, 1..N2] of integer;
i, j, max, maxi, maxj, min, mini, minj : integer;
srArif : real;
BEGIN
{Заполняем массив случайными числами}
for j := 1 to N2 do begin
for i := 1 to N1 do begin
A [ i, j] := Random(100);
write(A [ i,j]:4);
end;
writeln;
end;

{Временно считаем, что максимум это элемент A[1,1]}
maxi := 1;
maxj := 1;
max := A [ i, j];
{Временно считаем, что минимум это элемент A[1,1]}
mini := 1;
minj := 1;
min := A [ i, j];
{Ищем максимум}

for j := 1 to N2 do begin
for i := 1 to N1 do begin
if max < A [ i, j] then begin
max := A [ i, j];
maxi := i;
maxj := j;
end;

if min > A [ i, j] then begin
min := A [ i, j];
mini := i;
minj := j;
end;
end;
end;
Writeln('Максимальный элемент А [ ',maxi, ',',maxj,'] = ',max);
Writeln('Минимальный элемент А [ ',mini, ',',minj,'] = ',min);
srArif := (max + min)/2;
Writeln('Ср. арифметическое max и min: ', srArif);
END.

Ахмед ты ленив, за тебя ни кто не будет делать, если только за деньги.

мб еще язык напишешь на котором написать, а?