Курсовая работа: Применение программных комплексов для решения инженерных задач

max:real;

jmax:byte;

imax:byte;

Reg:array[1..n] of string;

Procedure name;

begin

for i:=1 to n do

begin

Writeln('введите название i-региона ');

read(Reg[i]);

end;

end;

{ввод таблицы грузоперевозок в регионах РБ}

Procedure vvod(n:byte; var A:mas);

begin

reset(f1);

for i:=1 to n do

begin

for j:=1 to n do

read(f1,A[i,j]);

readln(f1);

end;

close(f1);

end;

{вывод таблицы грузоперевозок по пунктам в файл f2}

Procedure Vivodvfile(n:byte; A:Mas);

begin

writeln(f2,' _________________________________________________________________');

writeln(f2);