Вводится массив чисел MxM.Найти максимальные элементы по солбцам и выевсти на экран их значения и местоположение.
Пример:
Вводим массив размером 4x4
3 4 6 4
6 2 5 3
5 6 2 7
9 1 8 5
Ответ:
Столбец 1
max 9 в строке 4
Столбец 2
max 6 в строке 3
Столбец 3
max 8 в строке 4
Столбец 4
max 7 в строке 3
Вот коешто написал.Но этот код находит только максимальное значение из всего массива.
var
A:array[1..100,1..100] of integer;
n,i,j:integer;
begin
writeln('vv razmer massiva');
readln(n);
for i:=1 to n do
writeln('vvodite',n,'chisel');
for i:=1 to n do begin
for j:=1 to n do begin
Write('...');
Readln(a[i,j]);
end;
end;
function max(A:array of array of integer):pair;
i,j:byte; maxi,maxj:byte; result:pair;
begin
maxi:=1;
maxj:=1;
for i:=2 to N do
for j:=2 to N do
if A[i,j]>A[maxi,maxj] then begin maxi:=i; maxj:=j; end;
result.i:=maxi;
result.j:=maxj;
max:=result;
writeln(result)
end;
end.
Как находить максимальный элемент по каждому столбцу?И как опеределить местоположение элемента?
Сообщение отредактировано: fly -