viết chương trình nhập vào dãy số nguyên gồm n là phần tử (0<n<100) từ bàn phím. Đưa dãy vừa nhập ra màn hình.

2 câu trả lời

program baitap;
uses crt;
var a:array[0..100] of longint;
    i,n:longint;
begin
clrscr;
readln(n);
for i := 1 to n do read(a[i]);
for i := 1 to n do
write(a[i],' ');
readln;readln;
end.


uses crt;
var n,i:longint;
    a:array[1..1000]of longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do read(a[i]);
    for i:=1 to n do write(a[i],' ');
readln; readln;
end.

Câu hỏi trong lớp Xem thêm