Ответы на вопрос:
№1 var a: array[1..4, 1..5] of integer; i,j,k: integer; begin writeln('заполните матрицу'); for i: =1 to 4 do for j: =1 to 5 do begin read(a[i,j]); if (a[i,j] mod 3=0) and (a[i,j]> 20) then k: =k+a[i,j]; end; writeln('сумма элементов кратных 3-м и > 20 = ',k); end. №2 var a: array[1..5, 1..5] of integer; i,j,k: integer; begin writeln('заполните матрицу'); for i: =1 to 5 do for j: =1 to 5 do begin read(a[i,j]); if i=j then k: =k+a[i,j]; end; writeln('сумма элементов главной диагонали = ',k); end.
Популярно: Информатика
-
zdima293912.07.2022 19:14
-
luuba200718.06.2020 10:03
-
Чиангл10.01.2021 17:54
-
vanessashevchuk26.05.2022 19:24
-
okcanaceninap06wvq09.05.2020 13:06
-
Strelkov1828.05.2023 02:46
-
rollinz1418.12.2022 19:05
-
ak951224.09.2020 07:17
-
Slysly26.05.2023 10:52
-
rrrl122.08.2020 12:42