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

UptoLike

ВУЗ: 

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

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

Рубрика: 

155
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.9. Сортировка двумерных массивов. Расположить по
возрастанию элементы каждой строки двумерного массива методом пар-
ных перестановок.
program sortm7;
type
an = array [1..4] of integer;.
var
a:array [1..4] of an;
n,l,j:byte;
k, q:integer;
begin
writeln ('Исходный массив');
randomize; {ввод исходного массива с помощью}
for j:=1 to 4 do {датчика случайных чисел}
for l:=1 to 4 do
a[j,l]:=random(100);
for j:=1 to 4 do
begin
for l:=1 to 4 do
write(a[j,l],' ');
writeln;
end;
n:=4;
for j:=1 to 4 do
begin {начало сортировки по строкам}
repeat
k:=0;
for l:=1 to n–1 do

Страницы