Предложить ввод данных (чисел целого типа) двумя способами - ДПСЧ и с клавиатуры - Turbo Pascal - Ответ 5931240

var
  x: array [1..10, 1..10] of integer;
  y: array [1..10, 1..10] of real;
  i, j, n, imin, jmin, k: integer;
begin
  repeat
    write('Введите разномерность массива (1..10): ');
    readln(n);
    if not (n in [1..10]) then writeln('Неверная разномерность массива.');
  until n in [1..10];
  repeat
    writeln('Введите число - способ создания массива: ');
    writeln('    1: через датчик случайных чисел.');
    writeln('    2: с клавиатуры.');
    readln(k);
    if not (k in [1..2]) then writeln('Ошибка!');
  until k in [1, 2];
  case k of
    1: for i:=1 to n do
         for j:=1 to n do
           x[i,j]:=random(201)-100;
    2: for i:=1 to n do
         for j:=1 to n do
             begin
               write('X[',i,', ',j,']=');
               readln(x[i,j]);
             end;
  end;
  writeln('Матрица: ');
  for i:=1 to n do
    begin
      for j:=1 to n do write(x[i,j]:5);
      writeln;
    end;
  imin:=1; jmin:=1;
  for i:=1 to n do
    for j:=1 to n do
      if (abs(x[i,j])<abs(x[imin,jmin])) then
        begin
          imin:=i;
          jmin:=j;
        end;
  k:=x[imin, jmin];
  if k<>0 then
    begin
      writeln('Проебразованная матрица: ');
      for i:=1 to n do
        begin
          for j:=1 to n do
            begin
              y[i,j]:=x[i,j]/k;
              write(y[i,j]:8:2);
            end;
          writeln;
        end;
    end
  else writeln('Минимальный по модулю элемент равен нулю. Задание не выполнено.');
end.