Question

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

Answer 1

Ответ:

var

 A: array [1..255] of integer;

 i, j, tmp, n: integer;

begin

 write('Введите количество элементов массива: ');

 readln(n);

 writeln('Исходный массив:');

 //Заполнение массива

 for i := 1 to n do

   begin

    write('A[', i, '] = ');

    readln(A[i]);

   end;

   writeln;

 

 for i := 1 to n do write(A[i], ' ');

 writeln;

 

 //Сортировка массива

 for i:=1 to n-1 do

 for j:=1 to n-i do

 begin

 if (A[j] > A[j+1]) then

 begin

   tmp := A[j];

   A[j] := A[j+1];

   A[j+1] := tmp;

 end;

 end;

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

 for i := 1 to n do write(A[i], ' ');

 writeln;

 writeln('Минимальный эл. массива = ', A[1], ' , порядковый номер = 1');

 writeln('Максимальный эл. массива = ', A[n], ' , порядковый номер = ', n);

end.