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