Заполнить случайным образом одномерный массив из n элементов - Turbo Pascal
Формулировка задачи:
Заполнить случайным образом одномерный массив из n элементов
и определить минимальную сумму среди пар следующих элементов:
На выходе имеем:
1. Почему суммы повторяются зеркально;
2. И как полученные суммы превратить в
массив. А уж в массиве найдём и max и min.
Решение задачи: «Заполнить случайным образом одномерный массив из n элементов»
textual
Листинг программы
uses Crt; const n=8; var a:array [1..n] of integer; i,min:integer; begin clrscr; randomize; writeln(' Массив: '); for i:=1 to n do begin a[i]:=-10+ random(21); write(a[i]:4); end; writeln; writeln(' Суммы попарно: '); min:=a[1]+a[n]; for i:=1 to n div 2 do begin write(a[i]+a[n-i+1]:4); if a[i]+a[n-i+1]<min then min:=a[i]+a[n-i+1]; end; writeln; write('Минимальная сумма=',min); readln end.
Объяснение кода листинга программы
- Объявлены переменные:
n
- константа, равная 8,a
- массив из n элементов,i
- счётчик,min
- переменная для хранения минимальной суммы. - Задана постановка задачи: заполнить случайным образом одномерный массив из n элементов.
- Выполняется очистка экрана и инициализация генератора случайных чисел.
- Выводится сообщение
Массив:
и происходит заполнение массива a случайными числами от -10 до 10 с шагом 1. - Выводится сообщение
Суммы попарно:
и происходит вычисление суммы каждой пары элементов массива a. - На каждой итерации цикла, если сумма текущей пары меньше текущего минимального значения, то обновляется значение переменной
min
. - Выводится сообщение
Минимальная сумма=
и значение переменнойmin
. - Программа ожидает ввода пользователя для завершения работы.