1.вывести на экран главную и побочную диагональ квадратичной матрицы. 2.найти сумму элементов матрицы, лежащих выше главной диагонали

Const   mm = 30; var   a: array[1..mm, 1..mm] of integer;   i, j, m, s: integer; begin   write('введите число строк матрицы: ');   readln(m);   randomize;   writeln(#13#10, 'исходная матрица');   for i : = 1 to m do   begin       for j : = 1 to m do       begin           a[i, j] : = random(101) - 50;           write(a[i, j]: 4)       end;       writeln   end;   { *** 1 *** }   writeln('*** элементы главной диагонали ***');   for i : = 1 to m do write(a[i, i]: 4);   writeln;   writeln('*** элементы побочной диагонали ***');   for i : = m downto 1 do write(a[i, m - i + 1]: 4);   writeln;   { *** 2 *** }   s : = 0;   for i : = 1 to m - 1 do       for j : = i + 1 to m do           s : = s + a[i, j];   writeln('сумма элементов, лежащих выше главной диагонали: ', s); end. тестовое решение: введите число строк матрицы: 10 исходная матрица   -8  15  22  40    6  46 -37  35 -45  -5   41  22  45  17 -19 -14  50 -11  43 -10   27  20 -45 -35  27 -27  25    3  34    6   37    5  38 -36  32 -18  11 -41  44  46   35  24 -38 -18    1  28 -25 -25  -5  36   20  33  37 -32 -35  23    9    7 -38 -18   -29  10 -50    0    9 -15  34  30  35  50   26  40  -5  48    5 -47    7  24  14  50   49  -1 -43  49  36 -47  18  20  49 -41   24 -47  47  12  25 -26  24  12  24 -35 *** элементы главной диагонали ***   -8  22 -45 -36    1  23  34  24  49 -35 *** элементы побочной диагонали ***   24  -1  -5    0 -35  28  11    3  43  -5 сумма элементов, лежащих выше главной диагонали: 392

відповідь:

пояснення для гіперпосилання в word

пояснення:

виділіть текст або зображення, яке потрібно відобразити як гіперпосилання.

на вкладці вставлення натисніть кнопку гіперпосилання   кнопка гіперпосилання .

у розділі зв’язати з виконайте одну з таких дій:

щоб створити посилання на наявний файл, у розділі зв’язати з виберіть пункт файлом, веб-сторінкою, а потім знайдіть файл у списку папка чи поточна папка.

додавання гіперпосилання на наявний файл

щоб створити новий пустий файл і посилання на нього, у розділі зв’язати з виберіть пункт новим документом, введіть ім’я для нового файлу та перевірте розташування, указане в полі шлях (щоб вибрати інше розташування, натисніть кнопку змінити). ви також можете вибрати, коли почати редагування нового документа: пізніше чи зараз.

ответ:

x= 1

k=0

while x! =0:

                x = int(

                if x % 2 == 0 and x % 9 ==0:

                                k+=1

if k == 0:

                print('no')

else:

                print(k-1)

объяснение: