nhập vào một dãy n số nguyên ( N< 20) sau đó xuất ra màn hình dãy số đó trên cùng 1 dòng và các phần tử cách nhau 1 khoảng trống
2 câu trả lời
uses crt;
var n,i:integer;
a:array[1..20] of integer;
begin
clrscr;
write('nhap n: ');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to n do write(a[i],' ');
readln;
end.
Program BTH;
Uses Crt;
var a:array[1..19] of longint;
i,n:byte;
Begin
clrscr;
Write('Nhap n: ');readln(n);
For i:=1 to n do
Begin
write('Nhap so thu ',i,' : ');readln(a[i]);
end;
For i:=1 to n do
Begin
write(a[i],' ');
end;
readln;
end.
