Najmanji od n brojeva?

[ivance95]

Treba mi pomoc oko jednog zadatka:

Data su dva skupa prirodnih brojeva a i b velicina n i m. Odrediti najmanji uneti broj iz skupa i ispisati koji je to skup.

Dakle nije mi potreban ceo zadatak, vec samo procedura, funkcija... koja odredjuje najmanji od n brojeva. Nije bitno u kom jeziku, ali bi bilo pozeljno da je u pascalu, ili c++.
Unapred zahvalan

[EclipsE]

Kako bi pronasao minimum u jednom nizu? Isto tako odradis i za dva niza. Generalna ideja:

var
  a : array[1..10] of integer;
  b : array[1..20] of integer;
  min, i : integer;
begin
  min := a[1];

  for i := 1 to 10 do
     if min > a[i] then
        min = a[i];

  for i := 1 to 20 do
     if min > b[i] then
        min = b[i];

end;

[clzola]

Jezik C/C++.
Imas skup A[n] i skup B[m]. Ako sam dobro shvatio treba ispisati koji je najmanji broj i u kom skupu se nalazi. Deklarisi dvije promenljive min_a = A[0] i min_b = B[0]. (Smjestis u njih prvi broj iz skupa, da ne bi bile prazne radi daljeg uporedjivanja)

I sada kreni prvo kroz skup A, i ispituj za svaki broj da li je min_a > A[i] ako jeste onda A[i] smjeti u min_a

for(i=0; i<n; i++)
  if(min_a > A[i])  min_a = A[i];

I posle prolaza imaces najmanji broj iz skupa A smjesten u promenljivoj min_a. Sada isto uradis za skup B. I uporedis min_a i min_b, onaj koji je manji stampas.

Ako sam dobro shvatio zadatak, trebalo bi ovako da ide... mozda postoji neko bolje resenje, ali ja bih to ovako odradio...

[ivance95]

EclipsE kaže:

Kako bi pronasao minimum u jednom nizu? Isto tako odradis i za dva niza. Generalna ideja:

var
  a : array[1..10] of integer;
  b : array[1..20] of integer;
  min, i : integer;
begin
  min := a[1];

  for i := 1 to 10 do
     if min > a[i] then
        min = a[i];

  for i := 1 to 20 do
     if min > b[i] then
        min = b[i];

end;

Da uredu je to, ali ne smem da ogranicim na 10 i 20, mora da ide do 2^32.

[clzola]

Ako je toliko brojeva u jednom skupu(2^32 dodje oko 4 milijarde i nesto xD), onda moras da trazis neko drugo resenje umjesto sto ces da uporedjujes svaki element sa trenutnom minimalnom vrijednoscu....

Ako su prirodni brojevi mozes da dodas da ako nadje 1 da zavrsi petlju (break) jer je 1 najmanji prirodni broj...

[pyost]

ivance95 kaže:

Da uredu je to, ali ne smem da ogranicim na 10 i 20, mora da ide do 2^32.

To nije ograničenje za vrednosti elementa, nego za veličinu niza. Konkretno, u tom kôdu bi umesto 10 išlo N, a umesto 20 M.

[ivance95]

Zaboravi sam jednu stvar da kazem. A to je da se ne ispituju svi elementi iz niza, nego samo elementi koji sa na pocetku programa unesu(ne redom, vec npr. 2,5,7..).Npr.

Uneti broj elementa prvog i drugog skupa:
Uneti elemente prvog skupa:
Uneti elemente drugog skupa:
Najmanji broj je x u skupu a

Imam problem sa ovim kodom.

var
    a:array [2..5000] of integer;
    b:array [2..5000] of integer;
    x,i:integer;
begin
   read(a);
   for i:=1 to a do begin
   read(x);
   end;
   end.

Problem je u tome da naredba read/readln ne podrzava array, a da bi se koristio ovaj algoritam za najmanji broj je potreban array Da li imate neko resenje? i jos jedno pitanje. I jos jednom se izvinjavam sto ovo nisam naglasio.
PS. Da li moze da se iskoristi sortiranje, da bi se ovo resilo?
Unapred zahvalan.

[EclipsE]

Nije ti palo na pamet da uradis read(a[i]) ? ...
I ne mozes da ides for i := 1 to a, zato sto ti je a niz...

Preporucujem ti da predjes preko ovih tutoriala - http://www.learn-programming.za.net/...l_learn03.html. Dosta toga ces nauciti i bolje je nego da postavljas banalna pitanja ovde.

Mozes da sortiras niz od najmanjeg do najveceg, pa ce ti najmanji biti a[2], ali je mnogo slozeniji algoritam. Ono ti je mnogo laksi nacin...