Question

Написать в Паскале программу

Answer 1

Відповідь:

Пояснення:

program Main;

const

 N = 5; // размер матрицы

 k = 2; // заданное число

var

 matrix: array[1..N, 1..N] of Integer;

 i, j: Integer;

begin

 // заполнение матрицы случайными числами

 for i := 1 to N do

   for j := 1 to N do

     matrix[i, j] := Random(100); // генерация случайного числа от 0 до 99

 // вывод элементов главной диагонали, разделенных на k

 for i := 1 to N do

   Write(matrix[i, i] div k, ' ');

 Readln;

end.