Viết chương trình tính tổng của 20 phần tử

0 bình luận về “Viết chương trình tính tổng của 20 phần tử”

1. uses crt;
   var a:array[1..20] of longint;
         i,s:longint;
   begin
         clrscr;
         for i:=1 to 20 do
               begin
                     write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
                     inc(s,a[i]);
               end;
         writeln(‘Tong: ‘,s);
         readln;
   end.

   Bình luận

2. program tinhtong;

   uses crt;

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

         i:byte;

         t:longint;

   begin

           clrscr;

           t:=0;

           for i:=1 to 20 do

                   begin

                           write(‘GIa tri phan tu thu ‘,i,’: ‘);   readln(A[i]);

                           t:=t+A[i];

                   end;

           write(‘Tong 20 phan tu la: ‘,t);

           readln;

   end.

   Bình luận