Question

Помогите пожалуйста!

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.

Объяснение: