lập trình tạo ngẫu nhiên một dãy không quá 500 số nguyên, một số có giá trị tuyệt đối không qua 400. hỏi trong dãy có bao nhiêu số nguyên giá trị nhỏ

0 bình luận về “lập trình tạo ngẫu nhiên một dãy không quá 500 số nguyên, một số có giá trị tuyệt đối không qua 400. hỏi trong dãy có bao nhiêu số nguyên giá trị nhỏ”

1. Program NN;
   Uses crt;
   Var A: array[1..500] of longint;
       n,i,min,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           min:=maxlongint;
           For i:=1 to n do
           Begin
                   Read(A[i]);
                   If A[i]<min then min:=A[i];
           End;
           d:=0;
           For i:=1 to n do
                   If A[i]=min then inc(d);
           Write(d);
           Readln
   End.

   Bình luận