Viết chương trình tính tổng của dãy số nguyên a1,a2,…an

0 bình luận về “Viết chương trình tính tổng của dãy số nguyên a1,a2,…an”

1. var A: array [1..500] of longint; n, i: integer; tong: real;
   begin
       write(‘Nhap so luong phan tu: ‘);
       readln(n);
       for i:=1 to n do
       begin
           write(‘Nhap gia tri cho phan tu thu ‘,i,’: ‘);
           readln(a[i]);
       end;
       for i:=1 to n do
           tong:=tong+a[i];
       write(‘Ket qua: Tong la: ‘,tong:0:0);
       readln
   end.
           

   Bình luận

2. program tinhtong;

   uses crt;

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

         n,i,t:integer;

   begin

        clrscr;

        write(‘Nhap so luong phan tu n: ‘);   readln(n);

        t:=0;

        for i:=1 to n do

             begin

                  write(‘A[‘,i,’]= ‘);   readln(A[i]);

                  t:=t+A[i];

             end;

        write(‘Tong la: ‘,t);

        readln;

   end.

   Bình luận