Randomize Timer

For i = 1 To 10

a(i) = Int(Rnd() * 10)

Print a(i); " ";

Next i

Print

P = 0 'Счетчик элементов, встречающихся один раз

For j = 1 To 10

M = 0 'Счетчик чисел, равных а(j)

For i = 1 To 10

If a(j) = a(i) Then M = M + 1

Next i

If M = 1 Then P = P + 1

Next j

Print

Print "Один раз зустрічаються"; P; "чисел(а)

End Sub

5. Cохраните проект под именем Лр10_Зад6 _Фамилия

ЗАВДАННЯ НА САМОСТІЙНУ (В) Й ПРАКТИЧНУ РОБОТУ (ВС,ЛС)

ЗАВДАННЯ 10.7.

Уровень 1 (згідно варіанту)

1. В одномерном массиве произвольных чисел А(10) положительные элементы уменьшить вдвое, а отрицательные заменить на значения их индексов.

2. Зaдaны фамилии игроков баскетбольной команды и количество забитых ими мячей. Напечатать фамилии игроков, забивших самое большое и самое маленькое количество мячей.

3. В одномерном массиве произвольных чисел А(20) определить сумму и количество элементов, которые меньше -5 и номера которых кратны 4.

4. Даны два массива одинаковой размерности A(N) и B(N). Определить количество элементов, удовлетворяющих условиям:

A(i)> В(i); A(i)< B(i) и A(i)= B(i).

5. Из элементов массива C(N), содержащего четное количество элементов, сформировать два массива: A(N/2)и B(N/2 ). Массив А образовать из чисел, стоящих на нечетных местах массива С, а массив В — из чисел, расположенных на четных местах массива С. Порядок следования сохранить.

6. Объединить два массива A(N) и B(N) в массив C(2*N), этом элементы массива А должны занять нечетные места, а элементы массива В — четные.

Уровень 2 (згідно варіанту)

1. Изменить порядок следования элементов в массиве на обратный.

2. В одномерном массиве произвольных чисел A(10) найти наибольший элемент среди отрицательных чисел.

3. Найти средний возраст среди мальчиков и девочек на основе имеющихся сведений о годах рождения учащихся класса,

4, Подсчитать количество разных чисел, встречающихся в массиве A(10). Повторяющиеся числа учитывать один раз.

5. Подсчитать наибольшее число одинаковых идущих подряд элементов в заданном массиве A(10).

6. В одномерном массиве произвольных чисел A(10) вычислить количество первых отрицательных элементов.

7. В одномерном массиве произвольных чисел A(10) второй элемент поставить на место первого, третий — на место второго т.д. Первый элемент поставить на место последнего.

ЗАВДАННЯ НА САМОСТІЙНУ РОБОТУ(В,ВС,ЛС)

ЗАВДАННЯ 10.8-10.9. СТВОРІТЬ ПРОЕКТИ ЗГІДНО З ВАРІАНТОМ ІНДИВІДУАЛЬНОГО ЗАВДАННЯ.

ЛАБОРАТОРНА РОБОТА №10. ПРОЕКТУВАННЯ ДОДАТКІВ VB6, У ЯКИХ ДАНІ ОРГАНІЗОВАНІ У ВИГЛЯДІ ОДНОВИМІРНИХ МАСИВІВ. ЗАНЯТТЯ 3. СОРТУВАННЯ ЕЛЕМЕНТІВ МАСИВУ. ОБМІН ЗНАЧЕННЯМИ.