Prikaz jedne poruke
Stara 24.7.2012, 12:48   #89
virtuoz pavle
Starosedelac
 
Član od: 5.6.2008.
Poruke: 2.163
Zahvalnice: 993
Zahvaljeno 122 puta na 98 poruka
Određen forumom Re: How to... C++

vidim da ne postoji tema za paskal, pa sam resio ovde da pitam. Zelim da sortiram niz integera,

Kod:
{Sortiraj Niz}

Uses Crt;
var
        a : array [1..100] of Integer;
        i, j, n, tmp, i_tmp : integer;

Begin
ClrScr;
        Write('ucitaj broj clanova niza: ');
        Readln(n);
        For i := 1 to n Do
                Begin
                        Readln(a[i]);
                End;
        tmp := a[1];
        For i := 1 to n Do
        tmp := a[i];
          For j := i + 1 to n Do
                If a[j] > tmp then
                 begin
                        tmp := a[j];
                        i_tmp := j;
                        write(a[i]);
                        readln;
                end;
       write(a[i]);
       readln;
End.
Ovo je bila moja zamisao, imam u glavi algoritam, ali sam se negde ocigledno zeznuo. moze pomoc?
hvala
virtuoz pavle je offline   Odgovor sa citatom ove poruke