Предмет: Информатика,
автор: Fulcrum200c
Нужно написать программу на Paskal ABC одномерного массива данных на 100 единиц, и Создать алгоритм поиска максимального и минимального значения и поменять их местами.
tumanov2004:
ну это если только для проверки правильности программы, а в готовом коде, это не нужно делать
Ответы
Автор ответа:
1
PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var (imin,imax):=(a.IndexMin,a.IndexMax);
Swap(a[imin],a[imax]); a.Println
end.
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var (imin,imax):=(a.IndexMin,a.IndexMax);
Swap(a[imin],a[imax]); a.Println
end.
Приложения:

Похожие вопросы
Предмет: Биология,
автор: vikarogenko
Предмет: Математика,
автор: xmellnov
Предмет: Математика,
автор: igor20131609
Предмет: География,
автор: Инна2003
Предмет: Математика,
автор: алуаша2