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 )

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 b: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
  2. Program FNG;
    Uses crt;
    Var B: array[1..20] of longint;
        n,i: 1..20;
    Begin
            Clrscr;
            Write(‘Nhap n: ‘); Readln(n);
            For i:=1 to n do
            Begin
                    Write(‘B[‘,i,’] = ‘);
                    Readln(B[i]);
            End;
            Write(‘Mang B: ‘);
            For i:=1 to n do Write(B[i],’ ‘);
            Readln
    End.

    Bình luận

Viết một bình luận