Придумайте и создайте свой интерактивный кроссворд по истории компьютера не менее 5 слов
202
314
Ответы на вопрос:
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.
Популярно: Информатика
-
axaz22709.06.2022 07:58
-
Trollyz04.04.2022 13:37
-
fedorinovkirs03.05.2021 04:25
-
shepa17418.05.2023 09:13
-
Alino4ka5825816.04.2021 08:10
-
sofiasaro29.12.2022 03:49
-
bogachevavalery02.09.2020 06:30
-
minipersik0216.05.2022 00:55
-
spaceman66609.06.2023 10:41
-
anton1oleynik30.08.2021 12:51