массивы

[Алекс 94]

Пжл, кто может объяснить программу(расписать что означает каждая строчка).

В массиве 10х10 целого типа отсортировать главную диагональ (процедура), вычислить ее сумму (функция), поменять местами строки, номера которых укажет пользователь. Вывод массива (процедура).

Написать эту задачу: 1. все процедуры в одном файле
2. процедуры/файлы в библиотечном файле
3. вывод результатов в текстовый файл

const
n=10;
type
matr=array[1..n,1..n] of integer;
var
a:matr;
row1,row2: integer;

procedure CreateMatrix(var x:matr);
var
i,j: integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
x[i,j]:=Integer(random(n*n)) - n*n div 2;
write(x[i,j]:4);
end;
writeln;
end;
end;

procedure sort(var x:matr);
var
i,j,t: integer;
begin
// сортировка
for i:=2 to n do
for j:=n downto i do
begin
if x[j,j]<x[j-1,j-1] then // главной
begin
t:=x[j,j];
x[j,j]:=x[j-1,j-1];
x[j-1,j-1]:=t;
end;
end;
end;

procedure OutputMatrix(x:matr);
var
i,j: integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(x[i,j]:4);
writeln;
end;
end;

function sumdiag(x:matr):Longint;
var
sum:longint;
i:integer;
begin
sum:=0;
for i:=1 to n do
sum:=sum+x[i,i];
sumdiag:=sum;
end;

procedure ChangeRow(var x:matr; n1,n2:integer);
var
i,t:integer;
begin
for i:=1 to n do
begin
t:=x[n1,i];
x[n1,i]:=x[n2,i];
x[n2,i]:=t;
end;
end;

begin
randomize;
writeln('Исходный массив:');
CreateMatrix(a);
sort(a);
writeln('Отсортированный массив:');
OutPutMatrix(a);
writeln('Сумма = ',sumdiag(a));
write('Введите номера строк, которые необходимо поменять: ');
readln(row1,row2);
ChangeRow(a,row1,row2);
writeln('Полученный массив:');
OutPutMatrix(a);
readln;
end.

[min@y™]

Пжл, кто может объяснить программу(расписать что означает каждая строчка).

имхо, проще обратиться к автору.

[Алекс 94]

мне сегодня бы. емц некогда сегодня

[min@y™]

емц некогда сегодня

значит, мало денег предлагал.