Question

Помогите срочно в программе паскаль составить даю 30 баллов ​

Answer 1

Ответ:

var i,b,c:integer;

var a:array[1..15] of integer;

begin

 writeln('Введите рост каждого участника поочерёдно:');

 for i:=1 to 15 do begin

   readln(a[i]);

 end;

 writeln(a);

 for i:=1 to 14 do

   for b:=1 to 15-i do

   begin

     if a[b]>a[b+1] then begin

       c:=a[b];

       a[b]:=a[b+1];

       a[b+1]:=c;

     end;

   end;

   writeln();

   writeln('Упорядоченный по возрастанию рост всех участников:');

     writeln(a);

end.