Цитата:
Сообщение от Alena O.
1. Дан двухмерный массив, содержащий 5 строк и 3 столбца. Элементами массива являются вещественные числа. Упорядочить массив по не убыванию элементов первой строки.
|
Если под "упорядочением" понимается перестановка столбцов, то так:
Код:
CONST
M=5;
N=3;
TYPE
Vector=Array[1..M] of Real;
VAR
A:Array[1..N] of Vector;
D_A:Vector;
i,j,k:integer;
BEGIN
Randomize;
Writeln('Initial array:');
For i:=1 to M do
begin
For j:=1 to N do
begin
A[j][i]:=Random*100-50;
write(A[j][i]:8:3);
end;
Writeln;
end;
writeln;
Writeln('Ordered array:');
For j:=1 to N do
For k:=1 to N-j do
if A[k,1]>A[k+1,1] then
begin
D_A:=A[k];
A[k]:=A[k+1];
A[k+1]:=D_A;
end;
For i:=1 to M do
begin
For j:=1 to N do
write(A[j][i]:8:3);
Writeln;
end;
Readln
END.