S=3
for k in range(3,8,3):
s+=k
print(s)​

ответ:

program arrmax;

var

  i, i1, i2, amax: integer;

  a: array [1..10] of integer;

begin

  randomize;

  for i : = 1 to 10 do   // заполнение массива случайными числами

    a [i] : = random (11);

  for i : = 1 to 10 do   // вывод на экран элементов массива

    write (a [i], ' ');

  amax : = -1;

  i1 : = -1;

  for i : = 1 to 10 do   // поиск первого максимального элемента

    if a [i] > amax then begin

      amax : = a [i];

      i1 : = i;

    end;

  writeln;

  writeln ('индекс первого элемента массива с наибольшим значением = ', i1);

  amax : = -1;

  i2 : = -1;

  for i : = 10 downto 1 do   // поиск последнего максимального элемента

    if a [i] > amax then begin

      amax : = a [i];

      i2 : = i;

    end;

  writeln ('индекс последнего элемента массива с наибольшим значением = ', i2);

  readln;

end.

объяснение: