Viết chương trình nhập vào N dãy số nguyên sau đó tính tổng và in ra màn hình tổng các số nguyên đó

0 bình luận về “Viết chương trình nhập vào N dãy số nguyên sau đó tính tổng và in ra màn hình tổng các số nguyên đó”

1. program phuongt;
   uses crt;
      var A: array[1..500] of integer;
            n, s, i: integer;
   begin
          clrscr;
          write(‘Nhap n = ‘); readln(n);
          s:=0;
          for i:=1 to n do
          begin
                  write(‘A[‘, i, ‘] = ‘); readln(A[i]);
                  s:=s+A[i];
          end;
          write(‘Tong = ‘, s);
          readln
   end.

   Bình luận

2. uses crt;

   var a: array[1..100] of integer;

   i,n,s: integer;

   begin

   clrscr;

   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;

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận