Question

Задать массив размерности 25 случайным образом от -10 до 9.Поменять местами первый минимальный и последний максимальный элементы массива.Вывести первоначальный массив и получившийся массив. Помогите решить в паскале

Answer 1

const n = 25;
var
a: array[1..n] of integer;
i, num, num1, min, max: integer;
begin
min := 10;
max := 0;
for i := 1 to n do begin
a[i] := random(20) - 10;
write(a[i], ' ');
if(a[i] < min) and (min = 10) then begin
min := a[i];
num := i;
end;
if(a[i] > max) then begin
max := a[i];
num1 := i;
end;
end;
a[num] := max; a[num1] := min;
writeln;
for i := 1 to n do write(a[i], ' ');
end.