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

UptoLike

ВУЗ: 

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

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

Рубрика: 

150
readln;
end.
Пример 8.5. Сортировка двумерных массивов. Расположить по
убыванию элементы каждого столбца двумерного массива методом
модифицированного выбора.
program sortm4;
type
myarr= array[1..4] of integer;
myre = array[1..4] of myarr;
var
a:myarr;
c:myre;
n,k,i,j,q:byte;
begin
writeln('Исходный массив'); {ввод исходного массива с помощью}
randomize; {датчика случайных чисел}
for i:=1 to 4 do
for j:=1 to 4 do
c[i,j]:=random(100);
for j:=1 to 4 do
begin
for i:=1 to 4 do
write(c[i,j],' ');
writeln;
end;
for i:=1 to 4 do
begin {переписываем каждый столбец двумерного}
q:=1; {массива в одномерный}
for j:=1 to 4 do
begin
a[q]:=c[i,j];
q:=q+1;
end;
begin {начало сортировки}
for q:=1 to 3 do
begin
m:=a[q];
k:=q;
for n:=q+1 to 4 do
begin
if a[n]>m then {поиск максимального элемента}

Страницы