Program Clear;
Uses crt;
Var A: array[1..10000,1..10000] of longint;
    i,j,s,k,max,min: longint;
Begin
        Clrscr;
        Write('Nhap k: '); Readln(k);
        max:=0;
        Write('Nhap phan tu: ');
        For i:=1 to 3 do
        Begin
                For j:=1 to 5 do Read(A[i,j]);
                Writeln;
                s:=s+A[i,j];
                If A[i,j]>max then max:=A[i,j];
        End;

        Writeln('Bang: ');
        For i:=1 to 3 do
        Begin
                For j:=1 to 5 do Write(A[i,j],'   ');
                Writeln;
        End;

        Writeln('Vi tri phan tu nho hon k: ');
        For i:=1 to 3 do
                For j:=1 to 5 do
                        If A[i,j]<k then Writeln('     ',i,' ',j);
        min:=max;
        For i:=1 to 3 do
                For j:=1 to 5 do
                        If A[i,j]<min then min:=A[i,j];
        Writeln('GTLN: ',max);
        Writeln('GTNN: ',min);
        Readln
End.

Program btmang;

Uses crt;
Var
  max,min,i,j,s,k,bi: Longint;
  a : Array [1..10,1..10] Of Integer;
  b: Array [1..50] Of Integer;
Begin
  Clrscr;
  For i:= 1 To 5 Do
    For j:= 1 To 3 Do
      Begin
        Write('Nhap a[',i,',',j,']');
        read(a[i,j]);
        Clrscr;
      End;
  Write('Nhap k : ');
  read(k);
  Clrscr;
  Writeln('Mang 3x5 : ');
  For i:= 1 To 5 Do
    Begin
      For j:= 1 To 2 Do
        Write(a[i,j],' ');
      Writeln(a[i,3]);
    End;
  s := 0;
  For i:= 1 To 5 Do
    For j:= 1 To 3 Do
      s := s+a[i,j];
  Writeln('Tong cac phan tu trong mang la : ',s);
  bi := 0;
  For i:= 1 To 5 Do
    For j:=1 To 3 Do
      If a[i,j] < k Then
        Begin
          Inc(bi);
          b[bi] := a[i,j];
        End;
  If bi = 0 Then Writeln('Khong co phan tu nao cua mang nho hon ',k,'.')
  Else
    Begin
      Writeln('Cac phan tu nho hon ',k,' la : ');
      For i:= 1 To bi-1 Do
        Write(b[i],' ');
   writeln(b[bi]);
    End;
  min := a[1,1];
  max := a[1,1];
  For i:= 1 To 5 Do
    For j:= 1 To 3 Do
      Begin
        If a[i,j] > max Then max := a[i,j];
        If a[i,j] < min Then min := a[i,j];
      End;
  Writeln('Phan tu nho nhat la :',min,', phan tu lon nhat la : ',max);
  Readln;
End.