пожалуйста помогите решить массив

[kitty]

В одномерном массиве, сосотоящем из n целочисленных элементов, вычислить:
1)номер максимального элемента.
2)произведение элементов массива, расположенных между первым ивторым нулевыми элементами.
Преобразовать массив таким образом, чтобы в его первой половине располагались элементы в нечетных позициях, а во второй половине - элементы, стоявшие в четных позициях.
нужно использовать операторы if then goto
в pascal

[Карась]

var mas: array [1..10] of integer;
max, i: integer;
begin
Writeln ('Zapolnite masiv...');
for i := 1 to 10 do Readln(mas[i]); Writeln ('Gotovo...');
Writeln;

max := mas[1];
for i := 2 to 10 do
if mas[i] > max then max := mas[i];

Writeln (max);
Readln;
end.

Реализация алгоритма по нахождению максимального значения в массиве.

АДД: вы неуказали язык программирования. then, goto, if используются практически везде. Может вам на VB

[Карась]

Определение порядкового номера наибольшего числа в массиве:

for i:= 1 to 10 do
 if mas[i] = max then break;
 Writeln (i);