uses crt;

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

i,n: integer;

begin

clrscr;

write ('nhap do dai day so N= ');  readln (n);

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

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

readln;

end.

- Nhập độ dài dãy số :

⇒ write('Nhap so dai day so n = '); readln(n);

- Nhập các phần tử của mảng :

⇒ i := 1; while i <= n do begin read(A[i]); i := i + 1; end;

- In ra các phần tử :

⇒ i := 1; while i <= n do begin write(A[i],' '); i := i + 1; end;

- Viết chương trình :

uses crt;

var A : array [1 .. 100] of real;

i, n : integer;

begin

clrscr;

write('Nhap so dai day so n = '); readln(n);

write('Nhap day gom ', n ,' so : ');

i := 1; while i <= n do begin read(A[i]); i := i + 1; end;

write('Cac phan tu cua mang : ');

i := 1; while i <= n do begin write(A[i] : 0 : 1,' '); i := i + 1; end;

readln

end.