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

UptoLike

ВУЗ: 

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

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

Рубрика: 

148
for j:=1 to 4 do
write(a[i,j],' ');
writeln;
end;
q:=1;
for i:=1 to 4 do
for j:=1 to 4 do
begin {переписываем двумерный массив в одномерный}
b[q]:=a[i,j];
q:=q+1;
end;
for q:=1 to 7 do {начало сортировки}
begin
max:=b[q*2];
k:=q;
for n:=q+1 to 8 do
begin
if b[n*2]>max then {поиск максимального элемента}
begin
max:=b[n*2];
k:=n;
end;
end;
b[k*2]:=b[q*2];
b[q*2]:=max
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]:4);
writeln;
end;
readln;
end.

Страницы