Nhập bảng a có 3×5 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

0 bình luận về “Nhập bảng a có 3×5 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”

1. 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.

   Bình luận

2. 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 3×5 : ‘);
     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.

   Bình luận