Ответы на вопрос:
1) const n=5; m=4; var a: array[1..n,1..m] of integer; i,j: integer; b1,b2: boolean; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(100); write(a[i,j]: 4); end; writeln; end; for i: =1 to n do begin b1: =true; b2: =true; for j: =2 to m do begin if a[i,j-1]> =a[i,j] then b1: =false; if a[i,j-1]< =a[i,j] then b2: =false; end; if b1 then writeln('в(о) ',i,' строке последовательность возрастающая'); if b2 then writeln('в(о) ',i,' строке последовательность убывающая'); end; end. пример: исходный массив: 59 91 71 89 89 65 40 31 51 62 97 61 88 25 87 11 8 9 12 80 в(о) 2 строке последовательность убывающая в(о) 5 строке последовательность возрастающая 2) в постановке есть неопределенность. какой (какие) индекс (ы) должен быть степенью двойки - хотя бы один или оба? 3) const n=5; m=4; var a: array[1..n,1..m] of integer; i,j,k: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(100); write(a[i,j]: 4); end; writeln; end; k: =0; for i: =1 to n do for j: =1 to m do if a[i,j] mod 7 = 0 then k: =k+1; writeln('k = ',k); end. пример: исходный массив: 63 19 86 92 23 9 62 3 89 56 54 46 77 89 70 41 60 1 63 82 k = 5
Популярно: Информатика
-
WWW201410.03.2021 06:05
-
alenka081023.04.2022 10:07
-
lluciferr0109.01.2022 13:30
-
sobakazabiyaka13.10.2021 04:06
-
maga2008209.06.2023 17:30
-
jendossia28.09.2022 09:54
-
shabalin0613.05.2023 22:33
-
лунтик7203.11.2021 15:00
-
slolia23.05.2023 05:13
-
PoLiNaPaSeKo14.05.2021 02:43