program lab1;
uses crt;
var mas:array[1..10,1..10] of real;
    i, j, n, y: integer;
    min: real;
    k,t: integer;

begin
 clrscr;
 randomize;
 writeln('1: Random');
 writeln('2: V ruznuy');
 writeln;
 write('Viberi variant: ');
 readln(y);{выбираем способ задания массива}
 case y of
 1:begin{1 масив заполняется млучайными цифрами}
    write('Vvedite n: ');
    readln(n);
    writeln('Matrix:');
    writeln;
    for i:=1 to n do
    begin
     for j:=1 to n do
     begin
      mas[i,j]:=10 * random -3;
      write(mas[i,j]:8:2);
     end;
     writeln;
    end;
   end;
 2:begin{2 масив задается в ручную}
    write('Vvedite n: ');
    readln(n);
    for i:=1 to n do
     for j:=1 to n do
     begin
      write('mas[',i,',',j,']: ');
      readln(mas[i,j]);
     end;
    writeln;
    writeln('Matrix:');
    writeln;
    for i:=1 to n do
    begin
     for j:=1 to n do
     write(mas[i,j]:8:2);
     writeln;
    end;
   end;
   end;
   writeln;
   writeln('Resultat:');
   writeln;
{ищем минимальный элемент массива}
   min:=abs(mas[1,1]);
   for i:=1 to n do
   for j:=1 to n do
   if min>abs(mas[i,j]) then
   begin
     min:= abs(mas[i,j]);
     k:=i;{запоминаем номер строки}
     t:=j;{и номер столбца}
   end;

   writeln('Min = ', min: 8:2);{выводим результат}
   writeln('Stroka = ', k);
   writeln('Stolbez = ', t);
   readln;
end.