Напишите программу, которая заполняет квадратную матрицу случайными числами в интервале [10,99], а затем записывает нули во все элементы выше главной диагонали. Алгоритм не должен изменяться при изменении размеров матрицы. паскаль АВС
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
const N = 5;
var A: array [1..N,1..N] of integer;
var i,j: integer;
begin
writeln('Матрица: ');
randomize();
For i:= 1 to N do
begin
For j:= 1 to N do
begin
A[i,j]:=random(90)+10;
write(A[i,j]:4);
if (i<j) then A[i,j]:=0;
end;
writeln();
end;
writeln('Измененная матрица: ');
For i:= 1 to N do
begin
For j:= 1 to N do
begin
write(A[i,j]:4);
end;
writeln();
end;
end.