Напишите программу, которая заполняет квадратную матрицу случайными числами в интервале...

Question

Напишите программу, которая заполняет квадратную матрицу случайными числами в интервале [10,99], а затем записывает нули во все элементы выше главной диагонали. Алгоритм не должен изменяться при изменении размеров матрицы. паскаль АВС

Answer 1

Ответ:

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

 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.