viết phương trình nhập độ dài cũng như các phần tử của dãy số chạy chương trình để kiểm tra kết quả với:N=4;các phần tử:1:10;2:14;3:8;4:5

program oken;
uses crt;
var a: array [1..100] of integer;
    n,i: integer;
begin
    clrscr;
    write('Nhap so phan tu cua mang: '); readln(n);
    for i:=1 to n do    
        begin
            write('a[',i,']: ');
            readln(a[i]);
        end;
    readln;
end.

program ct;

uses crt;

var A:array[1..1000] of integer;

      i,n: integer;

begin clrscr;

   writeln('Nhap so phan tu n: '); readln(n);

   for i:=1 to n do    

     begin

        write('A[',i,']: '); readln(A[i]);

     end;

readln;

end.

Học tốt!