Viết chương trình nhập mảng a gồm n số nguyên (thưc)n<=100 đếm số lượng phần tử.Tính tổng

program ct;

uses crt;

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

      i,n,d:integer;

      S:longint;

begin clrscr;

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

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     S:=0;

   for i:=1 to n do

     begin

        inc(d);

        S:=S+A[i];

     end;

   writeln('So luong phan tu la: ',d);

   writeln('Tong la: ',S);

readln;

end.

Học tốt!

program ct;

uses crt;

var i,n,S,d:integer;          

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

begin

clrscr;

      write('nhap n:=');readln(n);

         for i:=1 to n do

begin

       write('nhap mang A[',i,']:=');readln(a[i]);

end;

     d:=0;  S:=0;

         for i:=1 to n do

 begin

     d:=d+1; 

     S:=S+A[i];

  end;

writeln('co',d,' phan tu');

writeln('tong la:',S);

readln

end.