Viết chương trình nhập vào một dãy số nguyên gồm N phần tử . in ra màn hình tổng giá trị của các phần tử đó

0 bình luận về “Viết chương trình nhập vào một dãy số nguyên gồm N phần tử . in ra màn hình tổng giá trị của các phần tử đó”

1. program cr;

   uses crt;

   var i,n,Tong:integer;

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

   begin

   write(‘nhap n=’);readln(n);

   for i:=1 to n do 

   begin

   write(‘nhpa mang A[‘,i,’]:=’);readln(A[i]);

   end;

   Tong:=0;

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

   writeln(‘tonh gia tri cac phan tu la’,Tong);

   readln

   end.

   Bình luận

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

   Bình luận