Решите уравнение 0,52x-3,16y=-6,45 { -6,72x+2,08y=-16,22

//Pascal ABC.NET v3.1 сборка 1172

Const
 n=4;

Var
 ma:array[1..n,1..n] of integer;
 i,j:integer;
begin
 randomize;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     ma[i,j]:=random(50)-20;
     write(ma[i,j]:4);
    end;
  writeln;
  end;
  writeln('Сторки:');
  for i:=1 to n do
  begin
  write(i,':');
   for j:=1 to n do
    if ma[i,j]<0 then
     begin
      writeln(j);
      break;
     end;
     writeln;
   end;
  writeln('Столбцы:');
  for j:=1 to n do
  begin
  write(j,':');
   for i:=1 to n do
    if ma[i,j]<0 then
     begin
      writeln(i);
      break;
     end;
     writeln;
  end;
end.

Описываем переменные: max, min, imax,imin,jmax,jmin - все типа integer, если массив "of integer". Присваиваем начальные значения: max:= a[1,1]; min:= a[1,1]; imax,imin,jmax,jmin - все = 1. Открываем двойной цикл (по i  и по j), просматривая все элементы массива, сравниваем их как с max, так и с min. If a[i,j]>max  then begin max:=a[i,j]; imax:=i; jmax:=j end; аналогично: If a[i,j]<min  then begin min:=a[i,j]; imin:=i; jmin:=j end; После окончания цикла меняем индексы максимального элемента на соответствующие индексы минимального и наоборот. Выводим измененный массив.