Question

Se considera tabloulA[1..n] de numere reale. N<=100.Sa se scrie un program care determina de cite ori apare în tablou elementul minim. În Pascal. Ex:din toate numerele cel mai mic e 2. Programul va determina de cite ori apare 2 în șir.

Answer 1

Răspuns:

#include <iostream>

using namespace std;

int main()

{

   int n, a[100], minim=32000, contor=0, i=0;

   

   cin>>n;

   

   for(i=1;i<=n;i++)

   {

       cin>>a[i];

       if(a[i]<minim)

           minim=a[i];

   }

   

   for(i=1;i<=n;i++)

       if(minim==a[i])

           contor++;

   cout<<contor;

}

Explicație:

Realizam aflarea numarului minim in timpul citirii elementelor din vector pentru a putea fi eficienti din punct de vedere al timpului de executie.

Parcurgem din nou elementele vectorului astfel incat sa verificam cate numere din vector sunt egale cu elementul minim determinat anterior.

Answer 2

Răspuns:

Explicație:

program NrDeApMin;

type tablou=array[1..100] of real;

var n, i, ap: integer;

   A:tablou; min:real;

begin

 write('N='); read(n);

 writeln('Introdu ',n,' numere reale:');

 read(A[1]); min:=A[1];  ap:=1;

 for i:=2 to n do

    begin

      read(A[i]);

      if A[i]<min then begin min:=A[i]; ap:=1; end

      else  if A[i]=min then ap:=ap+1;

    end;

 writeln;

 writeln('minim este ',min);

 writeln('nr. de aparitii a lui este ', ap);

end.