Задача

[jikol]

Вот задача :Данная матрица размерностью NxM, все элементы матрицы являются действительными числами, которые определяются пользователем программы. Расположить элементы каждого столбца по возрастанию, полученную матрицу распечатать таким образом, чтобы каждая строка был отдельно.
Вот решение:
Program B8;
const n=3;
m=3;
var
A:array[1..n,1..m] of real;
i,j,k:integer;
R:real;
begin
for i:=1 to n do
for j:=1 to m do
begin
write('vvedit A[',i,',',j,']=');
readln(A[i,j]);
end;
for j:=1 to m do
for k:=1 to n-1 do
for i:=1 to n-1 do
if A[i,j]>A[i+1,j] then
begin R:=A[i,j];
A[i,j]:=A[i+1,j];
end;
for i :=1 to n do
begin
for j :=1 to m do
write (A[i,j],' ');
writeln;
end;
end.
Делал не самПомогите с блок-схемой , и пояснением к программе!!(ОЧЕНЬ ВАЖНО ПОЯСНЕНИЕ)Заранее Благодарен!!!

[Shift_sk]

Program B8;
const n=3;
m=3;//обьявление констант
var
A:array[1..n,1..m] of real;//создаем масив н на м
i,j,k:integer;
R:real;
begin
for i:=1 to n do//заполняем массив
for j:=1 to m do
begin
write('vvedit A[',i,',',j,']=');
readln(A[i,j]);
end;//конец заполнения массива
for j:=1 to m do //начало  сортировки столбцов массива
for k:=1 to n-1 do
for i:=1 to n-1 do
if A[i,j]>A[i+1,j] then
begin R:=A[i,j];//начало обмена элементов местами
A[i,j]:=A[i+1,j];
a[i+1,j]:=r;//конец обмена
end;//конец сортировки столбцов массива
for i :=1 to n do//вывод массива на экран
begin
for j :=1 to m do
write (A[i,j],' ');
writeln;
end;//конец вывода
end.//конец программы

[jikol]

СПС за ответ можно твою асю узнать?Как это все грамотно письменно записатью

[Shift_sk]

icq#: 605190198

[Serge_Bliznykov]

сплошные нарушения (тема неправильная, код не оформлен... раздел больше подходит Помощь студентам)
закрыто.

Модератор.