Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Информатика составить программу в паскале

Кристина Бочкарева Ученик (96), открыт 1 день назад
Составить программу нахождения максимального и минимального элементов массива, созданного случайным образом на промежутке [-40, 53], выведенного на экран pascal
1 ответ
Владислав Бортников Знаток (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
Кристина БочкареваУченик (96) 1 день назад
Спасибо!
Похожие вопросы