Question

Viết chương trình nhập vào dãy số nguyên n phần tử. Tính tổng dãy số đó.

Answer 1

program tongso;

var

      n, i, tong: integer;

      a: array[1..1000] of integer;

begin

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

      end;

      tong := 0;

      for i := 1 to n do

      begin

            tong := tong + a[i];

      end;

      writeln('Tong cac phan tu trong day la: ', tong);

end.