27.06.2010, 23:34 | #1 (permalink) |
Member
Регистрация: 21.06.2010
Сообщений: 31
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Массив двумерный
Хотя бы просто цикл где сортировка идет))) |
27.06.2010, 23:34 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ваш вопрос похож на содержание данных обсуждений В Паскале двумерный массив Двумерный массив Двумерный массив. Задача Фортран, двумерный массив |
28.06.2010, 00:04 | #2 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
Код:
uses crt; const n=5; m=5; var i,j,k,z:byte; tmp:integer; a:array[1..n,1..m]of integer; Begin Clrscr; Randomize; For i:=1 to n do For j:=1 to m do a[i,j]:=random(50); For i:=1 to n do begin For j:=1 to m do write(a[i,j]:5); writeln; end; writeln; For i:=1 to n do begin z:=1; While z>0 do begin z:=0; k:=m; For j:=2 to k do If a[i,j]<a[i,j-1] then begin tmp:=a[i,j]; a[i,j]:=a[i,j-1]; a[i,j-1]:=tmp; z:=1; end; k:=k-1; end; end; For i:=1 to n do begin For j:=1 to m do write(a[i,j]:5); writeln; end; End. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|