Владислав Бортников
Знаток
(384)
1 день назад
program FindMinMax;
const
N = 10; // Размер массива
var
arr: array[1..N] of integer;
i, min, max: integer;
begin
Randomize; // Инициализация генератора случайных чисел
// Заполнение массива случайными числами в диапазоне [-40, 53]
for i := 1 to N do
begin
arr[i] := Random(94) - 40; // Random(94) дает числа от 0 до 93, вычитаем 40 для диапазона [-40, 53]
end;
// Вывод массива на экран
writeln('Массив:');
for i := 1 to N do
begin
write(arr[i], ' ');
end;
writeln;
// Нахождение минимального и максимального элементов
min := arr[1];
max := arr[1];
for i := 2 to N do
begin
if arr[i] < min then
min := arr[i];
if arr[i] > max then
max := arr[i];
end;
// Вывод результатов
writeln('Минимальный элемент: ', min);
writeln('Максимальный элемент: ', max);
end.
Пояснение:
Размер массива: В программе используется массив из 10 элементов (N = 10). Вы можете изменить это значение, чтобы работать с массивами другого размера.
Генерация случайных чисел: Random(94) генерирует числа от 0 до 93. Вычитая 40, мы получаем диапазон [−40,53]
Поиск минимального и максимального элементов: Программа проходит по массиву и сравнивает каждый элемент с текущими значениями min и max.
Пример вывода:
Массив:
12 -5 34 -20 50 10 -30 45 23 -10
Минимальный элемент: -30
Максимальный элемент: 50