Исполнение алгоритма

Program NumberOfMaximums;

Uses Crt;

Type Mas = Array [1..10, 1..10] of Integer;

Var A : Mas;

N, M, K, Amax, i, j : Integer; {K - искомый результат}

{--------------------------------------------}

Procedure InputOutput(Var A : Mas);

Begin {описание процедуры ввода-вывода матрицы}

ClrScr;

Write('Количество строк - '); ReadLn(N);

Write('Количество столбцов - '); ReadLn(M);

For i := 1 to N do {Ввод матрицы}

For j := 1 to M do

begin Write('A[' , i , ', ' , j , ']= ? ');

ReadLn(A[i, j])

end; WriteLn;

ClrScr; WriteLn(' Матрица А');

For i := 1 to N do {Вывод матрицы}