Выполняется в PascalABC.NET. Условие. Даю 35 баллов 1.Создать двумерный массив...

0 голосов
56 просмотров

Выполняется в PascalABC.NET. Условие. Даю 35 баллов 1.Создать двумерный массив размерность 5 на 5. Имя массива должно состоять из четырёх символов. ХХХХ. Первые два символа m2 – массив двумерный. Вторые два символа – первые буквы вашей фамилии и имени. Маленькие буквы английского алфавита. Пример: работа Омарова Талгата. Массив должен иметь имя - m2ot 2.Массив заполняется целыми числами до 20 включительно и выводится на экран в виде матрицы. 3.Для индексов в цикле рекомендуется применять буквы i,j,k,l,n. 4.Найти и напечатать сумму всех чисел массива. 5.Найти и напечатать сумму 3-ей строки. 6.Найти и напечатать сумму 2-го столбца. 7.Найти и напечатать сумму главной диагонали (слева направо). 8.Найти и напечатать сумму боковой диагонали (справа налево) 9.Переменная для суммы должна иметь в имени первую букву вашего имени и sum. Для нашего примера с Талгатом подобная переменная будет иметь имя tsum. Если переменных несколько, в конце можете добавлять 1,2,3… 10. ПРОГРАММУ ПИШИТЕ ПОШАГОВО. На каждом шаге форматируйте и сразу избавляйтесь от ошибок. Если не сможете избавиться от синтаксической, но не логической ошибки, пришлите мне – разберёмся. Надеюсь, что этого не случится. Но если что не паникуйте.


Информатика (12 баллов) | 56 просмотров
Дан 1 ответ
0 голосов

begin

 var m2ot := MatrRandom(5, 5, 0, 20);

 m2ot.Println;

 m2ot.ElementsByRow.Sum.Println; // 4

 m2ot.Row(2).Sum.Println; // 5

 m2ot.Col(1).Sum.Println; // 6

 // 7

 var tsum := 0;

 for var i := 0 to 4 do

   tsum += m2ot[i, i];

 tsum.Println;

 // 8

 tsum := 0;

 for var i := 0 to 4 do

   tsum += m2ot[i, 4 - i];

 tsum.Print

end.


image
(1.6k баллов)
0

https://znanija.com/task/36397289 помогите пожалуйста ответить на 2 вопроса 50 б. Заранее благодарен!