Двумерный массив 10х10 заполнен случайными числами - вопрос №1010010013433772 от jahinanaily 29.04.2023 01:03

Question

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

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