Question

Viết chương trình đọc từ tệp đayso.inp sang dạy sỗ A1,A2,....AN rồi thực hiện in dãy ra màn hình
- Tệp dayso.inp có cấu trúc:

+ Dòng 1: là 1 số nguyên dương N

+ Dòng 2: gồm N số nguyên ngăn cách nhau bởi 1 đấu cách

mọi người ơi giúp e với.

Answer 1

uses crt;

const fi='dayso.inp',

var a:array[1..100]of integer;

i,n:integer;

f1:text;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,n);

for i:=1 to n do readln(f1,a[i]);

for i:=1 to n do write(a[i]:4);

close(f1);

readln;

end.