{* Задача 304 *}

Unit ZADACH304;
Interface
Implementation
Begin
 writeln('. Задана матрица размером N х N и число k. Разделить элементы k-й строки на диагональный элемент, расположенный а этой строке');
End.

Program zadach304;

Uses zadach304.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  k   : integer;
  n   : integer;
  m   : integer;
  i   : integer;
  j   : integer;
  tmp : integer;
  a   : Array [1..50] Of Array [1..50] Of integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  randomize;
  write('ВВедите K: ');
  readln(k);
  write('ВВедите количество столбцов матрицы: ');
  readln(m);
  write('ВВедите количество строк матрицы: ');
  readln(n);
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    For j := 1 To m Do {* Цикл для j => [1 .. m] *}
    Begin
      a[i, j] := trunc(random * 100) - random(80);
      write(a[i, j] : 4);
    End;
    writeln; {* Пропускаем одну строку *}
  End;
  tmp := a[k, k];
  writeln('Результаты деления:');
  For j := 1 To m Do {* Цикл для j => [1 .. m] *}
    writeln(a[k, j] / tmp : 5 : 2);
  readln
End.