nhập N số bất kỳ đêm các số lớn hơn 10va nhỏ hơn 20va tính tổng của chúng sau đó đưa ra màn hình so sánh các số>10 và<20

0 bình luận về “nhập N số bất kỳ đêm các số lớn hơn 10va nhỏ hơn 20va tính tổng của chúng sau đó đưa ra màn hình so sánh các số>10 và<20”

1. Program NN;
   Uses crt;
   Var A: array[1..100000] of longint;
       n,i,s,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0; d:=0;
           For i:=1 to n do
           Begin
                   Read(A[i]);
                   If (A[i]>10) and (A[i]<20) then
                   Begin
                           s:=s+A[i];
                           inc(d);
                   End;
           End;
           Writeln(‘S = ‘,s);
           Write(‘D = ‘,d);
           Readln
   End.

   Trả lời