Заменить первый элемент одномерного массива суммой максимального и минимального элементов - Turbo Pascal

Формулировка задачи:

Дан одномерный массив с числом элементов n<20. Заменить первый элемент этого одномерного массива суммой максимального и минимального элементов. Заранее спасибо =)

Решение задачи: «Заменить первый элемент одномерного массива суммой максимального и минимального элементов»

Листинг программы

var
  a:array[1..20] of integer;
  i,mina,maxa,n:integer;
begin
  randomize;
  write('N=');readln(n);
  for i:=1 to n do begin
    read(a[i]);
    if (i=1) or (maxa<a[i]) then maxa:=a[i];
    if (i=1) or (mina>a[i]) then mina:=a[i];
  end;
  a[1]:=mina+maxa;
  for i:=1 to n do write(a[i],' ');
end.

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

В начале объявляются переменные:
- a:array[1..20] of integer;
- i, mina, maxa, n:integer;
Затем выполняется инициализация генератора случайных чисел и выводится запрос на ввод числа элементов массива:
- randomize;
- write('N=');
- readln(n);
Далее происходит цикл, который считывает элементы массива и обновляет максимальное и минимальное значения:
- for i := 1 to n do begin
  - read(a[i]);
  - if (i = 1) or (maxa < a[i]) then maxa := a[i];
  - if (i = 1) or (mina > a[i]) then mina := a[i]; end;
После этого обновленный первый элемент массива заменяется суммой максимального и минимального значений:
- a[1] := mina + maxa;
И, наконец, выводятся все элементы массива:
- for i := 1 to n do write(a[i], ' '); Обратите внимание, что в данном коде используется только один вложенный цикл.