Алгоритмы и программы. Афанасьева Т. В - 149 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

149
Пример 8.4. Сортировка двумерных массивов. Расположить элементы в
строках двумерного массивa по возрастанию значений модифици-
рованным методом простого выбора.
program sortm9;
type
arr=array[1..4,1..4] of integer;
var
a:arr;
i,j,k,f,m:integer;
begin
writeln(' Исходный массив');
randomize; {ввод исходного массива с помощью}
for i:=1 to 4 do {датчика случайных чисел}
for j:=1 to 4 do
a[i,j]:=random(100);
for i:=1 to 4 do
begin
for j:=1 to 4 do write (a[i,j]:3);
writeln;
end;
for i:=1 to 4 do
for j:=1 to 3 do
begin {начало сортировки по строкам}
m:=a[i,j];
k:=j;
for f:=j+1 to 4 do
begin
if a[i,f]<m then {поиск минимального элемента}
begin
m:=a[i,f];
k:=f;
end;
end;
a[i,k]:=a[i,j];
a[i,j]:=m;
end; {конец сортировки}
writeln('Полученный массив');
for i:=1 to 4 do
begin {распечатка результата}
for j:=1 to 4 do write(a[i,j]:3);
writeln;
end;

Страницы