Cho dãy số 2,5,6,110,11 hãy đưa ra màn hình tổng dãy số

0 bình luận về “Cho dãy số 2,5,6,110,11 hãy đưa ra màn hình tổng dãy số”

1. program tongso;

   uses crt;

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

         n,i,t:integer;

   begin

        clrscr;

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

        t:=0;

        for i:=1 to n do

             begin

                  write(‘Nhap so thu ‘,i,’: ‘);   readln(A[i]);

                  t:=t+A[i];

             end;

        write(‘Tong day so la: ‘,t);

        readln;

   end.

   Bình luận

2. program phuongt;

   uses crt;

     var a: array[1..50] of integer;

           i, s: integer;

   begin

             clrscr;

             for i:=1 to 5 do

             begin

                        write(‘Nhap so thu ‘, i, ‘: ‘); readln(a[i]);

             end;

             s:=0;

             write(‘Tong day so la: ‘);

             for i:=1 to 5 do s:=s+a[i];

             write(s);

             readln

   end.

   Bình luận