Натусик

// В матрице C(5×5) элементы, стоящие на главной диагонали замените минимальным элементом, лежащим ниже главной диагонали.

const n=5;

var x:array [1..n,1..n] of integer;
    min:integer;
    i,j:byte;

Begin
Writeln('Исходная матрица: ');
for i:=1 to n do
    Begin
    for j:=1 to n do
        Begin
        X[i,j]:=Random(51)-25;
        Write(X[i,j]:4);
        end;
    Writeln;
    end;

Min:=X[1,1];
for i:=2 to n do
    for j:=1 to n-1 do  if (j < i) and (Min > X[i,j]) then Min:=X[i,j];

for i:=1 to n do X[i,i]:=Min;

Writeln('Новая матрица: ');
for i:=1 to n do
    Begin
    for j:=1 to n do Write(X[i,j]:4);
    Writeln;
    end;
end.