Консультация № 137805
21.05.2008, 21:08
0.00 руб.
0 1 1
Уважаемые эксперты прошу помощи в решении задачи!
В двумерном массиве случайных чисел от 1 до 100 отсортировать по возрастанию каждую строку.
Заранее огромное спасибо!

Обсуждение

Неизвестный
21.05.2008, 23:44
общий
это ответ
Здравствуйте, Marina korolyova!

Текст программы в приложении. У меня эту задачу решают большинство учеников 10-го класса, поэтому думаю объяснения тут излишни.

Удачи!

Приложение:
const n=10; m=15;var A:array[1..n,1..m] of integer; t,z,i,j:integer;begin {zapolnenie massiva} for i:=1 to n do for j:=1 to m do A[i,j]:=random(100)+1; {Sortirovka} for t:=1 to n do for i:=m-1 downto 1 do for j:=1 to i do if A[t,j]>A[t,j+1] then begin z:=A[t,j]; A[t,j]:=A[t,j+1]; A[t,j+1]:=z; end; {vivod massiva na ekran} for i:=1 to n do begin for j:=1 to m do write(A[i,j]:4); writeln; end; readln;end.
Форма ответа