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

Question

Дюпон

Информатика

1 декабря, 05:27

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

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Григорий Петров · Answer 1

uses crt; var a:array[1 ... 10,1 ... 10] of integer; i, j, n:integer; begin write ('Ïîðÿäîê ìàòðèöè n='); readln (n); for i:=1 to n do begin for j:=1 to n do begin a[i, j]:=10+random (90); write (a[i, j]:4); end; writeln; end; for i:=1 to n do for j:=1 to n do if i