Задана матрица в(n,m). определить количество столбцов, по возрастанию. каждый второй столбец упорядочить по возрастанию и найти, на сколько увеличилось количество таких столбцов.( в паскале решить)
285
305
Ответы на вопрос:
Const n=5; m=10; var b: array[1..n,1..m]of integer; i,j,k,buf,l: integer; begin for i: =1 to n do begin writeln; for j: =1 to m do begin b[i,j]: =random(50); write(b[i,j]: 4); end; end; writeln; for j: =1 to m do begin k: =0; for i: =1 to n-1 do if b[i,j]< b[i+1,j]then k: =k+1; if k=n-1 then buf: =buf+1; end; k: =0; for l: =2 to m do if l mod 2=0 then for i: =1 to n-1 do for j: =i+1 to n do if b[i,l]> b[j,l]then begin k: =b[i,l]; b[i,l]: =b[j,l]; b[j,l]: =k; end; writeln('увеличилось ',m div 2-buf); for i: =1 to n do begin writeln; for j: =1 to m do write(b[i,j]: 4); end; end.
Популярно: Информатика
-
гриша16716.02.2023 03:17
-
лоо25дллллл11.01.2022 11:53
-
sereg152525.12.2021 17:25
-
BezNikaVoobshe24.05.2023 05:52
-
Foxred228108.09.2022 13:49
-
rami199126.05.2021 01:50
-
pycya200602.03.2023 05:31
-
Паралиллепипед13.02.2022 06:47
-
илья21312325.01.2021 05:53
-
kotrboy28.08.2022 03:02