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

Question

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

Answer 1

Ответ:

• begin
• var 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.

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

---