a)Viết chương trình khai báo mảng một chiều A chứa tối đa 10 ký tự (phần tử kiểu thực) b) viết thông báo nhập dữ liệu cho các dữ liệu trên và xuất ra

a và b làm chung một chương trình nha em 😀

uses crt;
var A:array[1..10] of real;
    i,n:integer;
begin
   clrscr;
   write(‘Nhap so phan tu cua mang: ‘); readln(n);
   for i:=1 to n do
   begin
      write(‘Nhap phan tu thu ‘,i,’: ‘);
      readln(A[i]);
   end;
   for i:=1 to n do writeln(A[i]:4:2);
   readln
end.