Я ЩАС НА ЭКЗАМЕНЕ НУЖНО РЕШИТЬ ЗАДАЧУ В VISUAL BASIC РЕШЕНИЕ ПРИНЕМАЕТСЯ ГА ЛИСТЕ БУМАГЕ


УСЛОВИЕ СЛЕДУЮЩИЕ

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

ВРЕМЕНИ МАЛО! :!: :!:

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

; Ищем первое четное значение и запоминаем его индекс
max = 0;
max_i = 0;
for i = 1 to 100 do
if (Round(mass[i]/2)*2) = mass[i] then
max = mass[i]
max_i = i
end
next i

; Ищем четный макс
for i = 2 to 100 do
if max < mass[i] then
if (Round(mass[i]/2)*2) = mass[i] then
max = mass[i]
max_i = i
end
end
next i

; Заменяем
mass[max_i] = 10

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

100 размерность массива.
В начальный момент за максимум принимаем первый элемент массива

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

проверку на четность перед первым ифом добавить надо

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

FunTic, НЕ МОГБЫ РАСПИСАТЬ ПОЛНОСТЬ ЧТОБ ТОЛЬКО ПЕРЕПИСАТЬ.

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

Nixon, жди ща будет

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

FunTic а, ты добрый

_________________
ВНИМАНИЕ!!! WARNING!!! تحذير!!! ATTENTION!!! 警告!!! УВАГА!!!
Самоутверждающийся юнец.

Блин почему когда я учился в инсте не сушествовало КПК и мобильного инета....вот халява бы была(((
хотя...может быть именно по этому я ИНЖЕНЕР и это звучит гордо)))))))))))))))

_________________
No Comment

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
' Возможно число не четное, смотрим дальше
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
end
' Продолжаем смотреть массив
next i

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

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

Максимка2, я ваще тада молчу скромно........... :

_________________
Запись на ремонт: 8 (495) 725-7899 - ВОСТОК, 8 (495) 725-7876 - ЮГ Оценить ремонт: Стоимость ремонта
Клубный сервис niva.777tc.ru - умеем почти все!...
Шины и диски от Glu&Gerasim: koleso777.ru, +7 (916) 777-4222, Алексей.