Обработка одномерных массивов.Простые циклы

[kate-27]

Пожалуйста напишите программки на языке Pascal)
задача на массивы
1)в консольном режиме
2)в режиме формы
задача:
В заданном массиве a1, a2, ..., an все элементы с четными индексами, предшествующие максимальному элементу массива(первому по порядку, если их несколько), умножить на величину максимального элемента этого массива.

[Google2010]

на языке Pascal)

1)в консольном режиме
2)в режиме формы

--это как,извините?

[kate-27]

да обычно
как сможете, так и напишите=)
одна программа-в консоле
другая-обычно(с формой)

[kate-27]

хотя бы в консольном,плиз напишите кто-нить)

[Lauraldo]

const
  n = 10;
var
   a: array [1..n] of Byte;
   i, max, imax: Byte;
begin
...
    max := 0;
    for i := n downto 1 do
        if max > a[i] then begin
           max := a[i];
           imax := i;
        end;
    for i := 1 to imax - 1 do
        if not Odd(i) then
           a[i] := a[i]*max;
...

Это общий код (без ввода/вывода) на языке Паскаль.
Если нужно под Delphi - это в другую тему.
А если нужно полностью написать проги - то во фриланс)))

[kate-27]

ввод-вывод у мя написан
спасибо большое)

[kate-27]

ничего не изменилось когда запускаешь
также как просто ввод-вывод и выходит
что там дальше то должно быть?

[Lauraldo]

Видимо, вывод результата должен быть)))

[kate-27]

да это и ежу понятно)
я другое имела ввиду
но уже сама со всем справилась=)