Двумерный массив 10х10 заполнен случайными числами - вопрос №1343444910100100 от Margaryaanmag 11.05.2023 03:48

Question

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

Margaryaanmag · 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