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