Question

HELP...

a. Nhập từ bàn phím một dãy số nguyên A có tối đa n phần tử (n<=10), giá trị các phần tử thuộc đoạn [-4...+5];

b. Tạo mới tệp Songuyen.Txt trong thư mục gốc ổ đĩa D:\ rồi ghi các phần tử a1, a2,..., an vào tệp, mỗi phần tử trên một dòng của tệp có dạng:

a1

a2

an

Answer 1

uses crt;

const fo='songuyen.txt';

var f1:text;

a:array[1..10]of integer;

i,n:integer;

begin

clrscr;

assign(f1,fo); rewrite(f1);

repeat

write('n='); readln(n);

if (0>=n) or (n>10) then write('vui long nhap lai n');

until (0<n) and (n<=10);

for i:=1 to n do

begin

repeat

write('a[',i,']='); readln(a[i]);

if (-4>a[i]) or (5<a[i]) then write('vui long nhap lai a[',i,']');

until (-4<=a[i]) and (a[i]<=5);

end;

for i:=1 to n do

writeln(f1,a[i]);

close(f1);

readln;

end.