в матрице А(10,10) элементы главной диагонали заменить максимальным элементом каждой строки в паскале авс

[Аняяяя]

в матрице А(10,10) элементы главной диагонали заменить максимальным элементом каждой строки
в паскале авс

[Stilet]

Твои попытки увидеть можно? Хотя бы ввод и вывод массива.

[Вадим Мошев]

В каждой строке находим максимальный элемент, запоминаем его в переменной max.

Берём элемент в текущей строке и располагающийся на главной диагонали (имеет вид a[i, i]), после чего выполняем a[i, i]:=max;

[newerow1989]

var a:array[1..10,1..10] of integer;
    i,j,max:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
      begin
         a[i,j]:=Random(21);
         Write(a[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   Writeln;
   For i:=1 to 10 do
   begin
      max:=a[i,1];
      For j:=2 to 10 do
         If max<a[i,j] then
            max:=a[i,j];
      a[i,i]:=max;
   end;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
         Write(a[i,j],'  ');
      Writeln;
   end;
   Readln;
end.

Сойдет?