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

Найти наименьшее значение среди первой четверки элементов массива

27.03.2011, 15:44. Просмотров 1987. Ответов 2
Метки нет (Все метки)

здравствуйте,вот начал делать курсовик и застрял на такой проблеме:есть массив типа for i=1 to n :a(i)=rnd*n :cells(2+i,2)=a(i):next i и нужно в этом массиве найти наименьшее значение среди первой четверки элементов массива, 2 четверки массива и так далее до конца.помогите ну очень срочно мне это нужно !сам уже 2 вечер не могу сделать а, через день уже сдавать....
2
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.03.2011, 15:44
Ответы с готовыми решениями:

Найти минимальное значение массива среди элементов с четными номерами
Здравствуйте! если можно, помогите, плиз, с решением задач по массивам в VBA....

Найти наименьшее среди чисел первого массива, которое не входит во второй массив
Заданы два массива по 30 целых чисел в каждом. Найти наименьшее среди чисел...

Найти наибольшее наименьшее значение массива, поменять их местами
найти наибольшее и наименьшее значение массива, поменять их местами....

Найти наибольшее наименьшее значение массива, поменять их местами
помогите поменять наибольшее и наименьшее значение массива местами Sub...

Найти наименьшее среди положительных
Всем привет, дело вот в чем, после того как я нашел двенадцать разных значений...

2
Busine2009
Заблокирован
27.03.2011, 17:17 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

konstn,
а если последних элементов будет меньше четырёх штук? Т.е. если элементов в массиве 5.

Добавлено через 10 минут
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub P1()
Dim a(1 To 40) As Single
Dim i As Long
Dim Счётчик As Long
Dim min As Single
For i = 1 To 40
    'Заполнение массива случайными числами от -50 до +50.
    a(i) = (50 - (-50) + 1) * Rnd + (-50)
Next i
'Анализ массива.
min = a(1)
For i = 1 To 40
    Счётчик = Счётчик + 1
    If a(i) < min Then
        min = a(i)
    End If
    If Счётчик = 4 Then
        MsgBox "В этой четвёрке самое маленькое значение: " & min
        Счётчик = 0
        If i <> 40 Then
            min = a(i + 1)
        End If
    End If
Next i
End Sub
1
konstn
2 / 2 / 0
Регистрация: 27.03.2011
Сообщений: 18
27.03.2011, 17:36  [ТС] 3
5 элементов не будет т.к изначально размер массива задается таким способом:4*(на какое-то число).
спасибос меня плюс
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.03.2011, 17:36

Даны 4 числа. Найти наибольшее и наименьшее среди них
Даны 4 числа x,y,z,q.Найти наибольшее и наименьшее среди них , Среди двух...

Найти среднее арифметическое элементов массива и включить найденное значение в середину массива
Здравствуйте! Помогите, пожалуйста, решить информатику а то отчислят из...

Найти произведение тех элементов, значение которых меньше среднего арифметического элементов массива
Дан одномерный массивW, содержащийM элементов. Найти произведе-ние тех...


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

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

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