Реферат: Програмирование на языке Паскаль

j:=j+1;

n:=i;

m:=j-1;

end;

j:=1;

i:=i+1;

readln(filework);

end;

close(filework);{закрываем файл }

tmatrix.printmatrix; {выводим рабочую матрицу }

end;

end;

{_______________________________________________}

procedureSort; {сортируем элементы периметра по возрастанию }

var

i,j:integer; {счётчики }

p:integer; {вспомогательная переменная для обмена значениями }

begin

for i:=2 to l do

for j:=l downto i do

if per[j-1]>per[j] then

begin{меняем местами элементы }

p:=per[j-1];

per[j-1]:=per[j];

per[j]:=p;

end;

end;

{_______________________________________________}

procedure GetPerimetr(n_1,m_1,n_2,m_2:integer); {определение элементов по периметру }