Массив

program Project1;
 
uses
  CRT;
const
  maxelem = 20;
var
  a: array [1..maxelem] of real; { Переменная для хранения массива}
  i: integer;   { Вспомогательная переменная для организации циклов}
  n: integer;   { Переменная для хранения значения количества элементов массива}
  maxvalue: real; { Переменная для хранения значения максимального элемента}
  indmax: integer; { Переменная для хранения значения индекса элемента с максимальным значением}
begin
  write('Введите значение количества элементов (не более ',maxelem,'): ');
  repeat
    Readln(n);
    if (n < 1) or (n > maxelem) then
      writeln('Ошибка ввода! Повторите попытку.')
    else
      break;
  until false;
  for i:= 1 to n do
    begin
      write('Введите значение элемента [',i,']: ');
      Readln(a[i]);     { Ввод значений в одномерный массив.}
    end;
  clrscr;
  writeln('Исходный массив: ');
  for i:= 1 to n do
    write(' ',a[i]:6:2);     { Вывод элементов массива в консоль}
  Writeln;
  Maxvalue:= a[1];     { Установка переменных в начальное состояние}
  Indmax:= 1;
  for i:= 1 to n do
    if a[i] > maxvalue then   { Условие для поиска максимального значения}
      begin
        Maxvalue:= a[i];
        Indmax:= i;           { Присвоение значения индекса максимального элемента}
      end;
  writeln('Элемент с максимальным значением: a[',Indmax,']= ',Maxvalue:0:2);
  for i:= 1 to indmax-1 do    { Цикл для перебора индексов от первого до
                                предстоящего перед индексом максимального элемента}
    if i mod 2 = 0 then       { Условие для поиска элементов с четным индексом}
      a[i]:= a[i]* Maxvalue;  { Умножение найденных элементов на значение максимального элемента}
 
  writeln('Измененный массив: ');
  for i:= 1 to n do
    write(' ',a[i]:6:2);       { Вывод элементов массива в консоль}
  Writeln;
  Readln;
end.