Вопрос Обработка одномерных массивов (на языке программирования Pascal)

[djabrail3268]

Осуществить ввод одномерного массива D(D1,D2,D3,...D20) и вывод его на экран в следующем виде:
Исходный массив
D(D1,D2,D3,...D20).
Составить программу нахождения минимального и максимального элементов массива D и поменять их местами.
Результаты расчёта вывести на экран по следующему формату:
Максимальный элемент=...
Минимальный элемент=...
Результирующий массив D[D1,D2,D3,...Dn]

 

[Poopsik]

max:=0; for i:=1 to n do if D>max then begin max=D; maxindex=i; end; Это нахождение максимума и номера максимального элемента Аналогично находишь минимум и индекс минимального элемента Меняешь местами максимальный и минимальные элементы (индексы у тебя есть) Выводишь данные