Приложи моск - могут быть и ошибки ))) писал без проверки )))

_________________
Испытания на прочность, скорость и крысату...

Максимка2, А Я ЩАС ЗА УЧИТЕЛЬСКИМ КОМПОМ СИЖУ А ОНА ЧЕРЕЗ 2 КОМПА ПРИНЕМАЕТ У ДРУГИХ СТУДЕНТОВ+) ОДНОЙ РУКОЙ В ТЕТРАДИ ПИШУ ДРУГОЙ НА ФОРУМЕ :

_________________
Свобода - это чуть правее тормоза.

Nixon, на предыдущей странице ответ

_________________
Испытания на прочность, скорость и крысату...

Nixon, Савсем ахамела маладёш, списывает внаглую, сидя за учительским компом))))))))))
ПыСы: коллеги запомните этого студиоуза, он далеко пойдёт)))))))))))))))))))))

_________________
No Comment

Nixon, и не забудь сообщить какую оценку получил FunTic... :

_________________
мишка с Мишкой :)

Nixon, FunTic, не я проста афуфеваю над вами : : : маладцы : :

_________________
Я такой же осёл как и вы, сэр!(с) Капитан Смоллетт.

ПОСЛЕДНЯЯ ПРАВКА!!! ЗАМЕНА END на END IF

Dim mass, i, max, max_i as Variant
mass = Array(1,2,3,4,5,6,7,8,9,10,11)

' Ищем первое четное значение и запоминаем его индекс
max = 0;
max_i = 0;
' Пробегаемся по массиву
for i = 1 to 11 do
' Если нашлось четное число, то запоминаем значение и место в массиве
if (Round(mass[i]/2)*2) = mass[i] then
max = mass[i]
max_i = i
end if
' Возможно число не четное, смотрим дальше
next i

' Ищем четный макс
' Пробегаемся по массиву
for i = 1 to 11 do
' Если число больше чем мы нашли
if max < mass[i] then
' И если оно четное
if (Round(mass[i]/2)*2) = mass[i] then
' Запоминаем его значение и место в массиве
max = mass[i]
max_i = i
end IF
end if
' Продолжаем смотреть массив
next i

' НА выходе в переменных должны быть искомое максимальное четное значение, если оно было в массиве
' Заменяем это значение на 10
if max_i <> 0 Then
mass[max_i] = 10
end if

_________________
Испытания на прочность, скорость и крысату...

препод сказал что за хрень......
вот это вообще нигде не используют if (Round(mass[i]/2)*2) = mass[i] then

короче побухтела и поменяла условие задачи

В ОДНОМЕРНОМ МАССИВЕ ЗАМЕНИТЬ MAX ЧЕТНЫЙ ЭЛЕМЕНТ НА "0"

_________________
Свобода - это чуть правее тормоза.

FunTic, табе двойко : : :

можа проверка на четность так делать -- N%2 == 0? Вот только на басике это написать надо (деление по модулю). А round тут и правда не прокатит...

_________________
Все люди рождаются свободными и равными в своем достоинстве и правах. Они наделены разумом и совестью и должны поступать в отношении друг друга в духе братства.