2-е задачи по массивам

program Project1;
var
  a: array[1..50] of integer; // Переменная для хранения массива.
  n: integer; //   Переменная для хранения количества элементов массива.
  i: integer; // Вспомогательная переменная для организации цикла.
  minelem, maxelem: integer; // Переменные для хранения значения максимального и минимального элемента.
  indmin, indmax: integer; //  Переменные для хранения значения индексов минимального и максимального элементов.
begin
  write('Введите количество элементов массива: ');
  Readln(n);
  for i:= 1 to n do     // Ввод значений элементов вручную.
   begin
     write('Введите значение элемента ',i,': ');
     Readln(a[i]);
   end;
  writeln('Исходный массив:');
  for i:= 1 to n do      // Вывод массива в консоль.
    begin
      write(a[i]:4);
      if i mod 10 = 0 then
        writeln;
    end;
  minelem:= a[1];
  indmin:= 1;
  for i:= 2 to n do       // Поиск элемента массива с минимальным значением.
    if a[i] < minelem then
      begin
        minelem:= a[i];
        indmin:= i;
      end;
  maxelem:= a[1];
  indmax:= 1;
  for i:= 2 to n do      // Поиск элемента массива с максимальным значением.
    if a[i] > maxelem then
      begin
        maxelem:= a[i];
        indmax:= i;
      end;
  writeln('Сумма номеров максимального и минимального элементов: ', indmin + indmax);
  writeln('Сумма значений максимального и минимального элементов: ', minelem + maxelem);
  Readln;
end.

program Project1;
var
  x: array[1..50] of integer; // Переменная для хранения массива.
  n: integer; //   Переменная для хранения количества элементов массива.
  i: integer; // Вспомогательная переменная для организации цикла.
  a,b: integer; // Переменные для хранения значений левой и правой границы.
  sum: integer;  // Переменная для хранения значения суммы.
  k1,k2: integer; // Переменные для организации подсчета найденных элементов.
begin
  write('Введите количество элементов массива: ');
  Readln(n);
  for i:= 1 to n do     // Ввод значений элементов вручную.
   begin
     write('Введите значение элемента ',i,': ');
     Readln(x[i]);
   end;
  writeln('Исходный массив:');
  for i:= 1 to n do      // Вывод массива в консоль.
    begin
      write(x[i]:4);
      if i mod 10 = 0 then
        writeln;
    end;
  writeln('Введите значение левой границы диапазона чисел: ');
  Readln(a);
  writeln('Введите значение правой границы диапазона чисел: ');
  Readln(b);
  k1:= 0;
  k2:= 0;
  sum:= 0;
  for i:= 1 to n do
    begin
      if (x[i] >= a) and (x[i] <= b) then // Условие для выбора элементов из заданного диапазона значений.
        begin
          inc(k1);
          sum:= sum + x[i];
        end;
      if (x[i] > 0) and (i mod 4 = 0) then // Условие выбора положительных элементов, стоящих на местах кратных 4.
        inc(k2);
    end;
  if k1 > 0 then
    writeln('Среднее арифметическое чисел из заданного диапазона: ', (sum/k1):0:2)
  else
    writeln('Чисел из заданного диапазона не найдено.');
  if k2 > 0 then
    writeln('Количество положительных чисел, стоящих на местах кратных 4: ', k2)
  else
    writeln('Положительных чисел, стоящих на местах кратных 4 не найдено.');
 
  Readln;
end.