Найдите сумму максимального и минимального элементов среди элементов с нечётными индексами . Результат выведите на экран . Паскаль

Всё отлично

Где нарушение, то?

Ошибочно нажал , хотел на другое сообщение отправить репорт . А есть возможность отменить жалобу?

//PascalABC.NET//Версия 3.3. сборка 1583 (25.11.2017)var  n:integer; a:array[1..100] of integer;begin write('Введите размер массива (n<100): ');readln(n); var max:=0; var min:=101; for var i:=1 to n do begin  a[i]:=random(0,100);  write(a[i],' ');  if i mod 2=1 then   if a[i]>max then max:=a[i]   else    if a[i]<min then min:=a[i]; end; writeln; writeln('Максимальный - ',max); writeln('Минимальный - ',min); writeln('Cумма максимального и минимального - ',max+min); readln;end.Пример:Введите размер массива (n<100): 1022 6 51 84 46 66 10 36 14 52                   // рандомная генерацияМаксимальный - 51Минимальный - 10Cумма максимального и минимального - 61