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 câu trả lời
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.
