Двумерный массив 10х10 заполнен случайными числами - вопрос №1343354710100100 от H1biki 30.09.2021 15:35

Question

Информатика: Двумерный массив 10х10 заполнен случайными числами от 0 до 100 вывести начальный массив и заменить 1 строку на единицы вторую на двойки и так далее а после заменить диагонали на 0

H1biki · Answer

beginvar m := MatrRandom(10,10,0,100); ('Начальный массив:').Println; m.Println; m.Fill((i,j)->(i=j)or(i=9-j)?0:i+1); ('Изменённый массив:').Println; m.Println; end.

Пример работы:

Двумерный массив 10х10 заполнен случайными числами от 0 до 100 вывести начальный массив и заменить 1