Question

Este dat un sir de cel mult 100 numere intregi. scrieti un program care va aranja elementele sirului in mod crescator.Program in pascal+schema logica

Answer 1

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...