Question

дан одномерный масив целых чисел размерностью до 20 элементов .необходимо упорядочить элементы исходного массива по возрастанию,а затем определить минимальный максимальный элементы массива.(срочно пожалуйста) ​

Answer 1

Ответ:

var i,b,c:integer;  

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

begin  

for i:=1 to 20 do begin  

  a[i]:=random(10);  

end;

writeln('Неотсортированный массив:');  

writeln(a);  

for i:=1 to 19 do  

  for b:=1 to 20-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);

    writeln();

    writeln('Минимальный элемент массива =',' ', a[1]);

       writeln('Максимальный элемент массива =',' ', a[20]);

end.