viet chuong trinh tinh tong cua cac so trong doan tu 3 den 9 trong day day so nguyen nhap tu ban phim

0 bình luận về “viet chuong trinh tinh tong cua cac so trong doan tu 3 den 9 trong day day so nguyen nhap tu ban phim”

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

         S: word;

         i, n: byte;

    

   Begin

      Write(‘n = ‘); readln(n);

      S:=0;

      For i:=1 to n do 

         Begin

              Write(‘a[‘, i, ‘] = ‘); readln(a[i]);

              if (a[i]>=3) and (a[i]<=9) then

                    S:=S+a[i];

         End;

      Write(‘tong la: ‘, s);

      Readln

   End.

    

    

   Bình luận