Viết chương trình sử dụng lệnh lặp For…do để tính tổng các phần tử trong dãy N số nguyên nhập từ bàn phím.Với N cũng được nhập từ bàn phím?

0 bình luận về “Viết chương trình sử dụng lệnh lặp For…do để tính tổng các phần tử trong dãy N số nguyên nhập từ bàn phím.Với N cũng được nhập từ bàn phím?”

1. program tinh_tong;

   uses crt;

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

         n,i,t:integer;

   begin

         clrscr;

         write(‘Nhap N: ‘);  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 cac phan tu la: ‘,t);

         readln;

   end.

   Bình luận

2. Program tong;

   Var i,n: integer;

         S: real;

   Begin

         Readln(n);

         S:=1;

         For i:= 1 to n do S:=s+i

         Write(S);

         Readln

   End.

   #chuccauhoctot♡♡♡

   #TTLD_Shinichi_Kudou#

   ~~~~~~~~~~♡Munz♡~~~~~~~~~~

   Bình luận