Одномерные массивы.

program Project1;
const
  maxelem = 25;
var
  a: array [1..maxelem] of integer; { Переменная для  хранения массива.}
  n: integer; {  Переменная для хранения значения количества элементов в массиве.}
  i: integer; { Вспомогательные переменные для организации циклов.}
 
begin
  Randomize;
  n:= 20;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      a[i]:= random(11);
      writeln(a[i]:2);
    end;
  Readln;
end.

 program Project1;
const
  maxelem = 100;
var
  a: array [1..maxelem] of integer; { Переменная для  хранения массива.}
  n: integer; {  Переменная для хранения значения количества элементов в массиве.}
  i: integer; { Вспомогательные переменные для организации циклов.}
  MinValueElement: integer; {Переменная для хранения значения минимального элемента.}
  MaxValueElement: integer; {Переменная для хранения значения минимального элемента.}
begin
  n:= 20;
  for i:= 1 to n do
    begin
      write('Введите значение ',i,' элемента: ');
      Readln(a[i]);
    end;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      write(a[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  MinValueElement:= a[1];
  MaxValueElement:= a[1];
  for i:= 1 to n do    {Нахождение минимального  и максимального значения среди элементов массива }
    begin
      if a[i] < MinValueElement then
        MinValueElement:= a[i];
      if a[i] > MaxValueElement then
        MaxValueElement:= a[i];
    end;
  writeln('Элемент массива с минимальным значением: ',MinValueElement);
  writeln('Элемент массива с максимальным значением: ',MaxValueElement);
  writeln('Сумма элементов с минимальным и максимальным значением: ',MinValueElement + MaxValueElement);
  Readln;
end.