Как подсчитать количество элементов ai, которые не меньше всех предыдущих элементов массива

@Milena ok · Регистрация: 08.12.2011

Дан числовой массив a(n). Подсчитать количество элементов ai, которые не меньше всех предыдущих элементов массива.

OldFedor · 10.12.2012, 12:21

Сообщение от Milena ok

Подсчитать количество элементов

1. Водится массив размерностью n
2. Оформляется два цикла
- внешний по i от 2 до n
- внутренний от j=1 до i-1
3. Во внутреннем цикле через if проверяете - текущий a(j) >= a(i) и если да,
то переменную kol увеличиваете на 1.
После внутреннего цикла вывод текущего kol.

Удачи.

@sco43 · 10.12.2012, 13:17

Visual Basic

Private Sub Command1_Click()
Dim a(1 To 10)
For i = 1 To 10
 a(i) = Int(Rnd(1) * 10)
 Print a(i);
Next i
Print
 
k = 0
For i = 2 To 10
 For j = 1 To i - 1
  If a(i) >= a(j) Then
   k = k + 1
   Exit For
  End If
 Next j
Next i
Print k
 
 
End Sub

OldFedor · 10.12.2012, 13:30

Сообщение от sco43

Код Visual Basic

Надеялся, что словесного описания достаточно и напишет сам.

Добавлено через 55 секунд
Print k
Желательно поставить выше. Этих значений много

@Milena ok 2 / 1 / 1 Регистрация: 08.12.2011 Сообщений: 30
		1
	Как подсчитать количество элементов ai, которые не меньше всех предыдущих элементов массива 10.12.2012, 11:49. Просмотров 1049. Ответов 3 Метки нет (Все метки) Дан числовой массив a(n). Подсчитать количество элементов ai, которые не меньше всех предыдущих элементов массива. 0

OldFedor 7471 / 4135 / 474 Регистрация: 25.08.2012 Сообщений: 11,525 Записей в блоге: 11
	10.12.2012, 12:21	2
	Сообщение от Milena ok Подсчитать количество элементов 1. Водится массив размерностью n 2. Оформляется два цикла - внешний по i от 2 до n - внутренний от j=1 до i-1 3. Во внутреннем цикле через if проверяете - текущий a(j) >= a(i) и если да, то переменную kol увеличиваете на 1. После внутреннего цикла вывод текущего kol. Удачи. 0

OldFedor 7471 / 4135 / 474 Регистрация: 25.08.2012 Сообщений: 11,525 Записей в блоге: 11
	10.12.2012, 13:30	4
	Сообщение от sco43 Код Visual Basic Надеялся, что словесного описания достаточно и напишет сам. Добавлено через 55 секунд Print k Желательно поставить выше. Этих значений много 1

Опции темы