Питон. недавно изучаю, не могу понять, как решить : последовательность состоит из натуральных чисел и завершается числом 0. определите индекс наибольшего элемента последовательности. если наибольших элементов несколько, выведите индекс первого из них. нумерация элементов начинается с нуля. код выдаёт не то.

arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0] # Заполняем элементами массив
maximum = 0
ind = 0
for i in range(len(arr)):
    if arr[i] > maximum:
        maximum = arr[i]
        ind = i
print(ind)

Компьютерная программа — 1 комбинация компьютерных инструкций и данных, позволяющая аппаратному обеспечению вычислительной системы выполнять вычисления или функции управления

Транслятор — программа или техническое средство, выполняющее трансляцию программы

трансляторы разделяются на три основные группы: ассемблеры, компиляторы и интерпретаторы.

4. гибкость, расширяемость, простота синтаксиса.

5. комплекс программных средств, используемый программистами для разработки программного обеспечения.

6. Печатает текстовый файл при использовании других команд MS-DOS.

program z1;  

const n=3; m=4;

var i,j,x:integer;

mas:array [1..n, 1..m] of integer;

begin

x:=5;

for i:=1 to n do

for j:=1 to m do

begin

mas[i,j]:=sqr(x);

x:=x+1

end;

for i:=1 to n do

begin

for j:=1 to m do write (mas [i,j]:5);

writeln

end

end.

Объяснение:

Убрали лишнюю ; в строке: for j:=1 to m do;

Добавили составной оператор (begin - end) после этой строки

Изменили строку x:=x+11; на x:=x+1

Изменили форматированный вывод write (mas [i,j],' '); на write (mas [i,j]:5); - так ровнее будет

Добавили в конце end.

Если всё делать в 1 цикле:

program z1;  

const n=3; m=4;

var i,j,x:integer;

mas:array [1..n, 1..m] of integer;

begin

x:=5;

for i:=1 to n do

begin

for j:=1 to m do

begin

mas[i,j]:=sqr(x);

write (mas [i,j]:5);

x:=x+1

end;

writeln

end

end.