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

[kate-27]

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

Var A: array[1..100] of real;
n,i: integer;
begin

write('n=');
readln(n);
for i:=1 to n do
begin
write ('A [',i,']=');
readln(A[i]);
end;
writeln ('Massiv A');
for i:=1 to n do
write(A[i]:3:0,' ');
writeln;

вот сюда нужно решение этой задачки

readln;
end.

[Lauraldo]

А я тебе что написал?)))

[kate-27]

как ты мя нашел))
твоя не работает почему-то
*sorry*

[noxin]

max : real;


max := a[1];
for i := 2 to n do
if max < a[i] then
max := a[i];

i := 2;

while a[i] <> max do
begin
if i mod 2 = 0 then
a[i] := a[i]*max;
inc(i);
end;

Работает

[kate-27]

не работает(
у мя вообще все полетело
когда ее запустилаО_о

[noxin]

я проверял, всё работает

[noxin]

var a:array[1..100]of real;
n,i:integer;
max : real;
begin
readln(n);
for i:= 1 to n do
readln(a[i]);
max := a[1];
for i := 2 to n do
if max < a[i] then
max := a[i];

i := 2;
writeln('max=',max);
while a[i] <> max do
begin
if i mod 2 = 0 then
a[i] := a[i]*max;
inc(i);
end;
for i := 1 to n do
write(a[i]:4:2);
readln;
end.

[kate-27]

спасиб)
запустилось
надеюсь,что правильно)
и как вы во всем этом разбираетесь?!=)

[kate-27]

в итоге должно написать max=....
и всё?

[kate-27]

и еще в максимальном числе можно избавится от нулей после запятой
или они так и должны быть?