В двумерном массиве поменять максимальный элемент в каждой строке с диагональным.

Помогите пожайлуста с программой.

0

с какой диагональю?

0

с любой. заранее спасибо.

0

[QUOTE]с любой. заранее спасибо./QUOTE] А может и не надо менять тогда совсем?
Когда пишут просто диагональный элемент, то имеется ввиду главная диагональ.

0

В каждой строке есть свой максимальный элемент, его надо заменить диагональным элементом этой же строки. Поидее полюбому менять надо. А диагональю конечно же главной.

0

program z_array;
uses crt;
var ArrayA: array [1..100,1..100] of real;
CounterI, CounterJ, DimensionN, MaxIndex:byte;
TempElement:real;
begin
clrscr;
writeln('Введите размерность матрицы(двумерного массива)');
readln(DimensionN);

for CounterI := 1 to DimensionN do
for CounterJ := 1 to DimensionN do
begin
write('[',CounterI,',',CounterJ,']= ');
readln(ArrayA[CounterI,CounterJ]);
end;

writeln;
writeln('Данная матрица(двуменный массив) действительных чисел');
for CounterI := 1 to DimensionN do
begin
for CounterJ := 1 to DimensionN do
write(ArrayA[CounterI,CounterJ]:7:2);
writeln;
end;

for CounterI := 1 to DimensionN do
begin
MaxIndex := 1;
for CounterJ := 2 to DimensionN do
if ArrayA[CounterI,CounterJ] > ArrayA[CounterI,MaxIndex] then
MaxIndex := CounterJ;
TempElement := ArrayA[CounterI,CounterI];
ArrayA[CounterI,CounterI] := ArrayA[CounterI,MaxIndex];
ArrayA[CounterI, MaxIndex] := TempElement;
end;

writeln;
writeln('Полученная матрица(двумерный массив)');
for CounterI := 1 to DimensionN do
begin
for CounterJ := 1 to DimensionN do
write(ArrayA[CounterI,CounterJ]:7:2);
writeln;
end;
readln;
end.