Viết chương trình nhập số vào N số nguyên và in ra màn hình tổng của các số vừa nhập

0 bình luận về “Viết chương trình nhập số vào N số nguyên và in ra màn hình tổng của các số vừa nhập”

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

         n, i: byte;

         S: longint;

   Begin

        Write(‘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