Дано: fori:=24downto4do

i изменяется от
до
с шагом

Машинное обучение
Тоже на http://contest.ai-academy.ru/lessons# )?

P.S вот все ответы к 1 уроку 

Тест для проверки знаний

Вопрос 1. Какая технология\дисциплина пришла на смену экспертным системам?

Вопрос 2. Верно ли, что ИИ и компьютер не может отличить на фотографии кота от собаки?

Да, верно Нет, не верно

Вопрос 3. Существуют ли уже беспилотные автомобили, или это пока научная фантастика?

Да, существуют Нет, не существуют

Вопрос 4. Остались ли компьютерные игры и задачи, в которых человек лучше компьютера?

Да, остались Нет, все уже решено 

Вопрос 5. На каком языке программирования ведется большинство современных разработок в области ИИ и машинного обучения?

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Укажите n>11:');
  var c:=ArrRandom(n,-50,50); c.Println;
  var a:=new integer[n];
  for var i:=0 to n-1 do
    if i.Between(2,11) then a[i]:=Sqr(c[i]) else a[i]:=c[i]-1;
  a.Println;
  var imax:=a.IndexMax;
  a[imax]:=-a[imax];
  Writeln('Максимальный элемент заменен на ',a[imax]);
  var imin:integer;
  (imin,imax):=(a.IndexMin,a.IndexMax);
  if imin>imax then Swap(imin,imax);
  for var i:=imin+1 to imax-1 do a[i]:=0;
  a.Println
end.

Пример
Укажите n>11: 15
-47 11 -42 23 29 12 3 -24 -20 11 -4 38 42 -26 -28
-48 10 1764 529 841 144 9 576 400 121 16 1444 41 -27 -29
Максимальный элемент заменен на -1764
-48 10 -1764 0 0 0 0 0 0 0 0 1444 41 -27 -29