Question

Mn giúp mình với ạ mình cần gấp

Answer 1

1:

uses crt;

const fi='songuyen.int'

var f1:text;

i,n:integer;

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

begin

clrscr;

assign(f1,fi); rewrite(f1);

readln(n);

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

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

close(f1);

readln;

end.

Answer 2

Tk: