2. Написать программу, реализующую сортировку первой строки двумерного числового массива в порядке убывания. В программе использовать динамическую память. Алгоритм пояснить.

Var a: array [,] of integer;

st,sl,b: integer;

begin

write ('Введите количество строк массива - ');

readln (st);

write ('Введите количество столбцов массива - ');

readln (sl);

SetLength(a,st,sl);

for var i:=0 to st-1 do

for var j:=0 to sl-1 do

a[i,j] := Random(10)+1;

writeln ('Исходный массив');

for var i:=0 to st-1 do begin

for var j:=0 to sl-1 do begin

write(a[i,j]:5);

end;

writeln;

end;

for var i:=0 to sl-1 do begin

for var j:=0 to sl-1 do begin

if a[0,i]>a[0,j] then begin

b:= a[0,i];

a[0,i]:= a[0,j];

a[0,j]:= b;

end;

end;

end;

writeln ('Преобразованный массив');

for var i:=0 to st-1 do begin

for var j:=0 to sl-1 do begin

write(a[i,j]:5);

end;

writeln;

end;

end.

3. Написать программу, реализующую сортировку первого столбца двумерного числового массива в порядке возрастания. В программе использовать динамическую память. Алгоритм пояснить.

Var a: array [,] of integer;

st,sl,b: integer;

begin

write ('Введите количество строк массива - ');

readln (st);

write ('Введите количество столбцов массива - ');

readln (sl);

SetLength(a,st,sl);

for var i:=0 to st-1 do

for var j:=0 to sl-1 do

a[i,j] := Random(10)+1;

writeln ('Исходный массив');

for var i:=0 to st-1 do begin

for var j:=0 to sl-1 do begin

write(a[i,j]:5);

end;

writeln;

end;

for var i:=0 to st-1 do begin

for var j:=0 to st-1 do begin

if a[i,0]<a[j,0] then begin

b:= a[i,0];

a[i,0]:= a[j,0];

a[j,0]:= b;

end;

end;

end;

writeln ('Преобразованный массив');

for var i:=0 to st-1 do begin

for var j:=0 to sl-1 do begin

write(a[i,j]:5);

end;

writeln;

end;

end.

4. Написать программу, реализующую транспонирование матрицы, хранящейся в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.

Var a: array [,] of integer;

b,st,sl: integer;

begin

write ('Введите количество строк массива - ');

readln (st);

write ('Введите количество столбцов массива - ');

readln (sl);

SetLength(a,st,sl);

for var i:=0 to st-1 do

for var j:=0 to sl-1 do

a[i,j] := Random(10);

writeln ('Исходный массив');

for var i:=0 to st-1 do begin

for var j:=0 to sl-1 do begin

write(a[i,j]:5);

end;

writeln;

end;

for var i:=0 to st-1 do begin

for var j:=0 to st-1 do begin

b:=a[i,j];

a[i,j]:=a[j,i];

a[j,i]:=b;

end;

end;

writeln ('Преобразованный массив');

for var i:=0 to st-1 do begin

for var j:=0 to sl-1 do begin

write(a[i,j]:5);

end;

writeln;

end;

end.

5. Написать программу, производящую замену всех элементов двумерного числового массива, имеющих заданное значение, на единицу. В программе использовать динамическую память. Алгоритм пояснить.