CONST
 A:ARRAY[1..4,1..3] of REAL=((-0.2, 0.2, 4),(3.8, 0.3, -2.1),
                                          (2.5, 7, 1),(4.1, 2.5, 3.2));
VAR 
 Number_of_Negative_Elements:ARRAY[1..3] of BYTE;
 R:REAL;
 i,j:INTEGER;
BEGIN
  FOR i:=1 TO 4 DO
   BEGIN
     FOR j:=1 TO 3 DO
       Write(A[i,j]:6:1);
     WriteLn;
   END;
 WriteLn;
 FOR j:=1 TO 3 DO
  BEGIN
   Number_of_Negative_Elements[j]:=0;
   FOR i:=1 TO 4 DO
     IF A[i,j]<0 THEN INC(Number_of_Negative_Elements[j]);
   WriteLn('Number of negative elements in column ',j,' is ',  
                    Number_of_Negative_Elements[j]);
  END;
 WriteLn;
 FOR j:=1 TO 3 DO
  BEGIN
   R:=A[4,j];
   A[4,j]:=A[2,j];
   A[2,j]:=R;
  END;
  FOR i:=1 TO 4 DO
   BEGIN
     FOR j:=1 TO 3 DO
       Write(A[i,j]:6:1);
     WriteLn;
   END;
 ReadLn;
END.

CONST
 A:ARRAY[1..6,1..6] of INTEGER ={дальше сами}
TYPE
 AR=ARRAY[1..6] of INTEGER;
VAR
 R1,R2:AR;
 i:INTEGER;

FUNCTION Find_Max(Rfm:AR;Nfm:INTEGER):INTEGER;
 VAR i:INTEGER;
BEGIN
 Find_Max:=Rfm[1];
 FOR i:=2 TO Nfm DO
  IF Rfm>Find_Max THEN Find_Max:=Rfm[i];
END;

FUNCTION Scalar_Product(Rsp1,Rsp2:AR;Nfm:INTEGER):INTEGER;
 VAR i:INTEGER;
BEGIN
 Scalar_Product:=0;
 FOR i:=1 TO Nfm DO
  Scalar_Product:=Scalar_Product+Rsp1[i]*Rsp2[i];
END;

BEGIN
 FOR i:=1 TO 6 DO
  BEGIN
   R1[i]:=A[i,1];
   R2[i]:=A[i,6];
  END;
 Writeln('Maximum element in column 1 is ',Find_Max(R1,6));
 Writeln('Maximum element in column 6 is ',Find_Max(R2,6));
 Writeln('Scalar product of columns 1 and 6 is ',Scalar_Product(R1,R2,6));
 ReadLn;
END.