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

UptoLike

ВУЗ: 

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

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

Рубрика: 

147
if b[n]>m then {поиск максимального элемента}
begin
m:=b[n];
k:=n;
end;
end;
b[k]:=b[q];
b[q]:=m;
end; {конец сортировки}
q:=1;
for i:=1 to 4 do
for j:=1 to 4 do
begin {переписываем одномерный массив в двумерный}
a[i,j]:=b[q];
q:=q+1;
end;
writeln('Результат');
for i:=1 to 4 do {вывод результата}
begin
for j:=1 to 4 do
write(a[i,j]:3);
writeln;
end;
readln;
end .
Пример 8.3. Сортировка двумерных массивов. В двумерном массиве
расположить элементы на четных местах по убыванию методом
модифицированного простого выбора.
program sortm3;
var
a:array[1..4,1..4] of integer;
b:array[1..16] of integer;
q,n,max,i,j,k: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

Страницы