1. Информатика
  2. Язык Паскаль: Найти в массиве

Язык Паскаль:

Найти в массиве максимальный и минимальный элемент и поменять их местами. Массив заполнить случайными числами от -500 до 500, количество элементов вводится с клавиатуры

ааа512 ааа512    2   12.04.2021 05:04    0

Ответы
liza1449 liza1449  12.05.2021 05:57

##

var n := ReadInteger;

var a := ArrRandom(n, -500, 500);

a.Println;

var (imax, imin) := (a.IndexMax, a.IndexMin);

Swap(a[imax], a[imin]);

a.Print


Язык Паскаль: Найти в массиве максимальный и минимальный элемент и поменять их местами. Массив запо
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nastasttv00 nastasttv00  05.10.2019 03:50
Написть алгоритм действий для рисования 1, 2,3,4,5 в чертежнике через ! 30...
LyVlAr LyVlAr  05.10.2019 03:50
Что делать, не могу понять что не так, пишет встречено writeln, а ожидалось ; pi = 3.14; h = hello ; var a, b: integer; name: string; begin writeln ( введите своё имя:...
kirilladinov kirilladinov  08.07.2019 00:00
найти значение логического выражения ((1\/0)/\(1\/0))/\1...
daниил1 daниил1  08.07.2019 00:00
Дано целое трехзначное число n, значение которого вводится с клавиатуры. написать программу, которая выводит на экран true , если сумма каких-либо двух цифр числа n равна...
younactja228 younactja228  14.03.2019 12:18
6прочитайте условия дан треугольника со сторонами a b c определите приметр треугольника если извесно что a=5 определитк входные данные и результат данного алгоритма​...
Sofi200011777 Sofi200011777  14.03.2019 12:20
Будьласка чим по бестріше 1) с3 2) $a$1 3) $a3 a- під час копіювання формули може змінюватися і номер стовпця, і номер рядка б- під час копіювання формули номер стовпця...
marykotsubanova marykotsubanova  14.03.2019 12:22
Будьласка чим по бестрі 1) с3 2) $a$1 3) $a3 a- під час копіювання формули може змінюватися і номер стовпця, і номер рядка б- під час копіювання формули номер стовпця...
тимур617 тимур617  14.03.2019 12:29
Составить программу которая получает из слова «курсор» слово «сора» и «кусок»....
BOILHbIU BOILHbIU  14.03.2019 12:29
Pascal. в массив состоящий из n элементов вставить число и его квадрат и куб после к-го элемента, огромное. не забудьте про аномалии)...
Andy2511 Andy2511  20.07.2019 10:00
Напишите программы в pascal: 1)рассчитать стоимость путевки на 3 недели в рублях. стоимость путевки на 1 неделю - 200$, вторая неделя на 10% дешевле, третья - ещё на 10%...

Популярные вопросы