Как выполнить реверс максимального и минимального элементов массива в этой программе дальше? ПАСКАЛ
const n = 10
type mass = array[1..n] of integer
va
a: mass
i, k, max,c, min, j: integer
begi
randomize
for i := 1 to n d
A[i] := random(20)-10
for i := 1 to n d
write(a[i]:3);
writeln()
max := 1
for j := 1 to n - 1 do begi
for i := j + 1 to n d
if a[i] > max then
max := a[i]
end
Writeln('Максимальный Элемент массива = ',Max)
min:=1
for j:=1 to n-1 do begin
for i := j + 1 to n d
if a[i
end
writeln('минимальный элемент ', min);

Предыдущий
вопрос Следующий
вопрос

Для выполнения реверса максимального и минимального элементов массива в программе на Pascal можно использовать временные переменные. Ниже приведен код для выполнения этой задачи:

cons
n = 10
typ
mass = array[1..n] of integer
va
a: mass
i, max, min, temp: integer
begi
randomize
for i := 1 to n d
A[i] := random(20) - 10
for i := 1 to n d
write(a[i]:3)
writeln()
max := a[1]
min := a[1]
for i := 2 to n d
begi
if a[i] > max the
max := a[i]
if a[i] < min the
min := a[i]
end
Writeln('Максимальный элемент массива = ', max)
Writeln('Минимальный элемент массива = ', min)
for i := 1 to n d
begi
if a[i] = max the
a[i] := mi
else if a[i] = min the
a[i] := max
end
for i := 1 to n d
write(a[i]:3)
end.

Этот код сначала находит минимальный и максимальный элементы в массиве, затем меняет их местами в массиве и выводит измененный массив на экран.