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

const
  nmax=100;
var
  a: array[1..nmax,1..nmax] of integer;
  i,j,n: integer;
begin
  randomize;
  write('vvedite razmer massiva: ');
  readln(n);
  writeln('ishodnii massiv:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
 
  writeln('poluchennii massiv:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if i-j>0 then a[i,j]:=0;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.

uses crt;
const nmax=10;
type matr=array[1..nmax,1..nmax] of real;
procedure Gauss(var mt:matr;n:byte);{приведение к треугольному виду}
var k,i,j,r:byte;
    max,temp,tmp:real;
begin
{Приводим матрицу к треугольному виду}
for k:=2 to n do
 begin
  {Чтобы избежать деления на ноль, избавимся
   от нулевых элементов на главной диагонали.
   Для этого найдём максимальный элемент по
   модулю и поменяем местами строки}
   max:=abs(mt[k-1,k-1]);
   r:=k-1; {Запоминаем номер строки}
   for i:=k to n do
   if abs(mt[i,k-1])>max then
    begin
     max:=abs(mt[i,k-1]);
     r:=i; {Запоминаем номер строки}
    end;
   if max=0 then continue;
   for j:=1 to n do
    begin
     {меняем местами элементы 2-х строк}
      temp:=mt[k-1,j];
      mt[k-1,j]:=mt[r,j];
      mt[r,j]:=temp;
    end;
   {Основные преобразования}
   for i:=k to n do
    begin
     tmp:=mt[i,k-1]/mt[k-1,k-1];
     for j:=k-1 to n do
     mt[i,j]:=mt[i,j]-tmp*mt[k-1,j];
    end;
 end;
end;
 
var a:matr;
    ch:real;
    n,i,j,k:byte;
begin
clrscr;
randomize;
repeat
write('Размер матрицы n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
  begin
    for j:=1 to n do
     begin
      a[i,j]:=-5+11*random;
      write(a[i,j]:6:2);
     end;
    writeln;
  end;
writeln;
Gauss(a,n);
writeln('Треугольная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln;
 end;
readln
end.