Ответы
Ответ дал:
1
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);
for i := 1 to N do
begin
for j := 1 to N do
write(matrix[i, j]:4);
writeln;
end;
writeln('Элементы главной диагонали разделенные на ', k, ':');
for i := 1 to N do
write(matrix[i, i] / k:0:2, ' ');
end.
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
4 месяца назад
2 года назад
2 года назад