BÀI 9. LÀM VIỆC VỚI DÃY SỐCÂU HỎI VÀ BÀI TẬP

uses crt;

var N, i: integer;

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

begin

clrscr;

write(’Nhap so phan tu cua mang, n= ’); readln(n);

for i:=1 to n do

begin

write(’Nhap gia tri ’,i,’cua mang, a[’,i,’]= ’);

read(a[i])

end;

end.