Răspuns:
program ordonare;
ype tablou=array[1..100] of integer;
var n,i,temp:integer;
a: tablou;
ordonat: boolean;
begin
Write('n='); Read(n);
for i:=1 to n do
Read(a[i]);
ordonat:=false;
while not ordonat do
begin
ordonat:=true;
for i:=1 to n-1 do
begin
if a[i]>a[i+1] then
begin ordonat:=false; temp:=a[i]; a[i]:=a[i+1]; a[i+1]:=temp; end;
end;
end;
Writeln('sirul ordonat:');
for i:=1 to n do
Write(a[i],' ');
Writeln;
end.
Explicație:
daca nu cunosti cuvintele in rusa, atunci primul inseamna inceput, iar ultimul, sfarsit...
in imagini ceva se suprapune, am lasat ca sa vezi continuarea...
