Question

ajutatim ava rog cu o problema : Se da un tabel liniar cu 10 elemente numere intregi . De aranjat elementele tabelului in ordine crescatoare .

Answer 1

var a:array[1..10] of integer;
i:byte;
max,min:integer;

begin
writeln('Sirul:');
for i:=1 to 10 do read(a[i]);
writeln;
writeln('Sirul in ordine crescatoare:');
max:=a[i];
for i:=1 to 10 do if a[i]>max then max:=a[i];
min:=a[i];
for i:=1 to 10 do if a[i]<min then min:=a[i];
for min:=min to max do for i:=1 to 10 do if a[i]=min then writeln(min);
end.