Выполняется в PascalABC.NET.
Условие.

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. ПРОГРАММУ ПИШИТЕ ПОШАГОВО. На каждом шаге форматируйте и сразу избавляйтесь от ошибок. Если не сможете избавиться от синтаксической, но не логической ошибки, пришлите мне – разберёмся. Надеюсь, что этого не случится. Но если что не паникуйте.

Ответы

lyudagrigoreva2 14.10.2020 06:42

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.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

kooklool 23.07.2019 11:40

почемучка105 06.07.2019 12:50

helphelhelphelplease 06.07.2019 12:50

nusaba55 04.05.2020 13:41

narutoudzumaki228 04.05.2020 13:41

kedr3 04.05.2020 13:41

kennis1269 04.05.2020 13:40

matetskayamilan 25.05.2020 16:24

nikitav109 25.05.2020 16:25

VADioG 25.05.2020 16:25