Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
Катерина Нечай
1 / 1 / 0
Регистрация: 19.01.2012
Сообщений: 11
1

Дан массив действительных чисел, среди них есть равные. Найти первый максимальный элемент и заменить его нулем

22.01.2012, 20:32. Просмотров 1506. Ответов 1
Метки нет (Все метки)

Дан массив действительных чисел, среди них есть равные. Найти первый максимальный элемент и заменить его нулем.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.01.2012, 20:32
Ответы с готовыми решениями:

Найти первый максимальный элемент массива и заменить его нулем.
Доброй ночи! Может кто-то сможет мне сейчас помочь,очень прошу!!!Помогите решить задачу в Excel на...

Найти первый максимальный элемент массива и заменить его нулем
совершенно не понимаю информатику! ((( напишите пожалуйста решение задачик в vba... 1. Дан массив...

Дан массив действительных чисел. Среди них есть равные. Найти его первый максимальный элемент и заменить его нулем.
Помогите решить в Паскаль пожалуйста!!!! 1)Даны два целых числа: D (день) и M (месяц),...

Найти первый максимальный элемент массива и заменить его нулем
Дан массив действительных чисел, среди которых есть равномерные. Найти первый максимальный элемент...

Найти первый максимальный элемент массива и заменить его нулем
Дан массив действительных чисел, среди которых есть равномерные . Найти первый максимальный элемент...

1
19vitek
727 / 403 / 95
Регистрация: 19.12.2010
Сообщений: 756
22.01.2012, 21:29 2
как вариант.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub nn()
Randomize
Cells.Clear
Dim col As Range
kol = InputBox("Введите к-во эл-тов", , 10)
Set Rng = Range(Cells(1, 1), Cells(kol, 1))
Rng.Formula = "=round(rand()*10,2)"
Rng.Value = Rng.Value
maxx = Application.WorksheetFunction.Max(Rng)
MsgBox "Максимальный элемент=" & maxx
For Each col In Rng
    If col = maxx Then
    col = 0
    Exit For
    End If
Next col
End Sub
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.01.2012, 21:29

Найти первый максимальный элемент массива и заменить его нулем
Дан массив действительных чисел. Среди них есть равные. Найти его первый максимальный элемент и...

Найти первый максимальный элемент массива и заменить его нулем
Дан массив действительных чисел. Среди них есть равные. Найти его первый максимальный элемент и...

Найти первый максимальный элемент массива и заменить его нулем
Составить программу на Паскале, содержащую минимум четыре подпрограммы. Дан одномерный массив,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru