Viết chương trình nhập từ bàn phím mảng B gồm N phần tử là các số nguyên .Đưa mảng B ra màn hình(N<=20)

0 bình luận về “Viết chương trình nhập từ bàn phím mảng B gồm N phần tử là các số nguyên .Đưa mảng B ra màn hình(N<=20)”

1. Program BTH;
   uses crt;
   var a:array[1..20] of longint;
   i:byte;
   Begin
           clrscr;
           Write(‘Nhap n: ‘);readln(n);
           For i:=1 to n do
                   Begin
                   Write(‘Nhap so thu ‘,i,’ : ‘);readln(b[i]);
                   end;
           For i:=1 to n do
           Writeln(‘So thu ‘,i,’ trong mang B la: ‘,b[i]);
           readln;
   End.

   Bình luận