Лб инф передел / Pascal / Лабораторные по информатике / Возможные варианты / KSENIYA2

PROGRAM LAB5;
{Programma Laboratornoy raboty N 5
Variant N 10
A.Chernova,st.gr. M-178}
VAR
M,N,i,j,k:integer;
R:real;
A:array [1..7,1..7] of real;
Fin,Fout:text;
Label
Vvod_M, Vvod_N;
BEGIN
assign(Fout,'S:\kurs_1\M_178_2\Chernova\Nastya5.txt');
rewrite(Fout);
assign(Fin,'S:\kurs_1\_Data\DATF.txt');
reset(Fin);
vvod_M:
writeln('vvedi chislo strok massiva');
readln(M);
if (M<2) or (M>7) then
begin
writeln('nedopystimoe znachenie');
goto Vvod_M;
end;
Vvod_N:
writeln('vvedi chislo stolbcov massiva');
readln(N);
if (N<2) or (N>7) then
begin
writeln('nedopystimoe znachenie');
goto Vvod_N;
end;
for i:=1 to M do
for j:=1 to N do
read(Fin,A[i,j]);
close(Fin);
writeln(Fout,'Ishodnyi massiv iz',M,'*',N,'elementov');
for i:=1 to M do
begin
for j:=1 to N do
Write(Fout,A[i,j]:8:2);
Writeln(Fout);
end;
writeln(Fout);

writeln('Vvedi nomer stolbca');
readln(k);
for i:=1 to N-1 do
for j:=1 to N-i do
if A[i,k]>A[i,k+1] then
begin
R:=A[i,k];
A[i,k]:=A[i+1,k];
A[i+1,k]:=R;
end;
writeln(Fout,'Vyhodnoy massiv');
for i:=1 to M do
begin
for j:=1 to N do
Write(Fout,A[i,j]:8:2);
Writeln(Fout);
end;
close(fout);
END.