Nhập dãy số n phần tử và tính tổng cách phân tử đó. P/s: mình cần một cách làm khác cách cơ bản nha (càng nhiều càng tốt)

0 bình luận về “Nhập dãy số n phần tử và tính tổng cách phân tử đó. P/s: mình cần một cách làm khác cách cơ bản nha (càng nhiều càng tốt)”

1. uses crt;
   var a:array[1..100] of integer; n,i,s:integer;
   begin
         clrscr;
         write(‘Nhap so luong phan tu: ‘); readln(n);
         s:=0;
         for i:=1 to n do
               begin
                     write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
               end;
         for i:=1 to n do s:=s+a[i];
         write(‘Tong: ‘,s);
         readln;
   end.

   Bình luận

2. program bai_giai;

   uses crt;

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

         n,i,t:integer;

   begin

         clrscr;

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

         for i:=1 to n do

               begin

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

               end;

         t:=0;

         for i:=1 to n do t:=t+A[i];

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

         readln;

   end.

   Bình luận