Question

Se dă tabloul unidimensional A[1...10] de numere intregi. Scrieți un PROGRAM care va determina de câte ori se întalnește elementul MINIM din tabloul A.


am nevoie de program pascal cu var integer si chestii de alea​

Answer 1

Răspuns:

program numarare_minim;

type vector=array[1..100]of integer;

var v:vector; n, minim, i, nr:integer;

begin

   read(n);

   if (n<=0) then writeln('vector vid')

   else  

     begin

       read(v[1]); minim:=v[1];

       for i:=2 to n do  

         begin

           read(v[i]);

           if v[i]<minim then minim:=v[i];

         end;

       nr:=0;

       for i:=1 to n do

         if v[i]=minim then inc(nr);

       writeln(nr);

     end;

end.

Explicație: