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

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

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

const
n = 10;
type
mass = array[1..n] of integer;
var
a: mass;
i, max, min, temp: integer;
begin
randomize;
for i := 1 to n do
A[i] := random(20) - 10;
for i := 1 to n do
write(a[i]:3);
writeln();
max := a[1];
min := a[1];
for i := 2 to n do
begin
if a[i] > max then
max := a[i];
if a[i] < min then
min := a[i];
end;
Writeln('Максимальный элемент массива = ', max);
Writeln('Минимальный элемент массива = ', min);
for i := 1 to n do
begin
if a[i] = max then
a[i] := min
else if a[i] = min then
a[i] := max;
end;
for i := 1 to n do
write(a[i]:3);
end.

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