еще одна задачка

[koston]

Составить программу для выполнения заданных действий над одномерным массивом- вектором А из N элементов. В программе необходимо предусмотреть заполнение вектора любым способом.
В заданном векторе необходимо умножить все его элементы имеющие четные номера на значение его максимального элемента.
заранее спасибо!!!.

[Stilet]

Ну а наработки где?

[koston]

нету, к концу пары надо сдавать... плз помогите, полный ноль в паскале

[Stilet]

Ну примерно так:
1-часть: находим максимум:

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

2-часть: умножение:

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

Здесь
i - Начало вектора
j - конец
max - максимальное
a[1..10] сам массив.

[SNUPY]

От себя добавлю заполнение вектора

For i:=1 to 10 do
  begin 
    Writeln('A(', i, ')= ');
    Readln(A(i));
  end;

Вам, koston, на будущее, приводите, хотя бы свои наработки в плане алгоритмов.