viết chương trình nhập vào 1 mảng số nguyên in ra ba số trong mảng trên 1 dòng
1 câu trả lời
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]); readln;
for i:=1 to 3 do write(a[i], ' ');
readln;
end.
Câu hỏi trong lớp
Xem thêm
