01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / SERPROC

program f1;
type matr=array[1..43,1..40] of INTEGER;
var a:matr;m,n,i,j:integer;
procedure Z(VAR b:MATR; k:INTEGER;l:integer);
VAR min:INTEGER;p,i,j:integer;
begin
min:=b[1,1];
for i:=1 to k do begin
for j:=1 to l do
if b[i,j]<min then begin min:=b[i,j];p:=i end;
end;
for j:=1 to l do begin
b[k+1,j]:=b[p,j];
b[p,j]:=b[k,j];b[k,j]:=b[k+1,J];end;
end;

begin
 writeln('BBEDITE RAZMERNOST');
readln(m,n);
FOR I:=1 TO M DO BEGIN
FOR J:=1 TO N DO
BEGIN
READLN(A[I,J]);
END;
WRITELN;END;
FOR I:=1 TO M DO BEGIN FOR J:=1 TO N DO WRITE(A[I,J],'  ');WRITELN; END;
Z(A,M,N);
FOR I:=1 TO M DO BEGIN
FOR J:=1 TO N DO BEGIN
WRITE('  ',A[I,J]:5);
END;WRITELN
END;READLN;READLN;END.