Заполнить случайным образом одномерный массив из 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.

Объяснение кода листинга программы

  1. Объявлены переменные: n - константа, равная 8, a - массив из n элементов, i - счётчик, min - переменная для хранения минимальной суммы.
  2. Задана постановка задачи: заполнить случайным образом одномерный массив из n элементов.
  3. Выполняется очистка экрана и инициализация генератора случайных чисел.
  4. Выводится сообщение Массив: и происходит заполнение массива a случайными числами от -10 до 10 с шагом 1.
  5. Выводится сообщение Суммы попарно: и происходит вычисление суммы каждой пары элементов массива a.
  6. На каждой итерации цикла, если сумма текущей пары меньше текущего минимального значения, то обновляется значение переменной min.
  7. Выводится сообщение Минимальная сумма= и значение переменной min.
  8. Программа ожидает ввода пользователя для завершения работы.

Оцени полезность:

8   голосов , оценка 3.5 из 5
Похожие ответы