Em hãy viết chương trình nhập vào N ( 1 <= N < 1234568) số thực a1, a2, a3, ... an ( -9 tỷ < ai < 9 tỷ) vào từ bàn phím. Tính tổng các phần tử của dãy

0 bình luận về “Em hãy viết chương trình nhập vào N ( 1 <= N < 1234568) số thực a1, a2, a3, ... an ( -9 tỷ < ai < 9 tỷ) vào từ bàn phím. Tính tổng các phần tử của dãy”

1. uses crt;

   var A:array[1..12345678] of real;

         n,i:longint;

         t:longint;

   begin

         clrscr;

         write(‘Nhap 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:0:3);

         readln;

   end.

   Bình luận

2. uses crt;

   var a: array[1..12345678] of intn64;

   i,n: longint;

   s: int64;

   begin

   clrscr;

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

   for i:=1 to n do

   begin

   write (‘nhap phan tu thu ‘,i,’: ‘);   readln (a[i]);

   s:=s+a[i];

   end;

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận