program MangA;
uses crt;
var A:array [1..N] of real;
i:byte;
begin
clrscr;
writeln('Nhap du lieu mang A); readln(A);
write('Nhap N'); readln(N);
(nhập dữ liệu)for i:=1 to N do
begin
write ('A[',i,']=');
readln(A[i]);
end;
(in dữ liệu)for i:=1 to n do write( A[i]:6);
readln;
end.
*** chú ý:
cái phần trên là theo mình hiểu
những phần mình làm mình đã chú thích vào rồi ý bạn không hiểu phần nào thì cmt nhé
hoặc mình làm sai chỗ nào thì bạn cmt để mình giải lại nhé
**cảm ơn <3
