Nhập bảng a có 3x5 phần tử là số nguyên từ bàn phím. Thực hiện các yêu cầu sau: 1. Nhập và xuất mảng 2. Tính tổng các phần tử trong mảng 3. Tìm các phần tử của mảng có giá trị nhỏ hơn k 4. Xuất ra giá trị lớn nhất, nhỏ nhất của bảng

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.