Михаил помогите пожалуйста) нужно найти максимальный среди всех элементов массива с четными номерами в abc pascal
ID Irina Dimkova max:=a [ 1 ]; for i := 2 to n do if (i mod 2 = 0) then if ( a [ i ] > max then max:=a [ i ];