Поменятьместами макс и мин элементы.
uses crt-
vari,size,max,min,num,num1:integer-
a:array[1..10000]of integer-
begin
clrscr-
writeln(‘Bведите размер массива’)-
readln(size)-
FOR i := 1 TO sizedo
begin
clrscr-
writeln(‘Введите элементы массива’)-
readln(a[i])-
end-
max := a[1]-
min := a[1]-
clrscr-
writeln(‘Введенный массив’)-
FOR i := 1 TO sizedo
begin
writeln(a[i])-
IF a[i] >- maxTHEN
begin
num := i- max :=a[i]-
end-
end-
FOR i := 1 TO sizedo
begin
IF a[i] <- minTHEN
begin
num1 := i- min :=a[i]-
end-
end-
a[num1 + 1] := max-
a[num] := min-
writeln(‘Массив, где max и min поменяли местами’)-
FOR i := 1 TO sizedo
begin
writeln(a[i])-
end-