Вматрице найти сумму элементов четных столбцов. если эта сумма положительна, то все элементы нечетных строк возвести в квадрат. в противном случае ко всем элементам побочной диагонали прибавить число 2. с решением, в прошлый раз была ошибка надо найти именно сумму элементов четных столбцов.
Ответы на вопрос:
program djonny1981; uses crt; const m=5; var a: array[1..m,1..m] of integer; i, j: integer; sum: integer; begin randomize; sum: =0; for i: =1 to m do begin for j: =1 to m do begin a[i,j]: =random(101)-50; write(a[i,j]: 5); end; writeln(); end; for i: =1 to m do for j: =1 to m do if j mod 2 = 0 then {вот здесь проверка, чётный ли столбец} sum : = sum + a[i,j]; writeln('сумма элементов чётных столбцов равна ',sum); if sum> 0 then for i: =1 to m do for j: =1 to m do if i mod 2 = 1 then a[i,j]: =a[i,j]*a[i,j] else for i: =1 to m do a[m-i+1,i]: =a[m-i+1,i]+2; for i: =1 to m do begin for j: =1 to m do write(a[i,j]: 5); writeln(); end; end.
мыслитель (7981)
алексей - илья муромец,
евгений - алеша попович,
николай - добрыня никитич.
Популярно: Информатика
-
IndiAkent07.10.2020 08:53
-
vik2005101.03.2021 04:08
-
vzarina57604.01.2022 05:35
-
Мусор22821.04.2021 01:32
-
Dinkaakissa2001.07.2022 13:14
-
кастусь30.09.2021 08:08
-
dasyakim04.03.2023 04:52
-
kmidakova31.12.2021 09:36
-
Ruzlet09.04.2020 07:57
-
Арина20091112.08.2020 08:14