9. Одномерные массивы

1. Дан одномерный массив а(100). Найти количество элементов

этого массива, больших среднего арифметического всех его элементов.

Выполнение в TP:

Program massiv;

Var A:array[1..100] of real;

n, i, kol: integer; S:real;

Begin

S:=0;

Kol:=0;

Write (“ Введи n=” );

Readln (n);

For i:=1 to n do

Begin

Write (“ Введи A[“,i,”]=”);

Readln (A[ i ]);

S:=S+A[ i ];

End;

S:=S/n;

For i:=1 to n do

If A[ i ]>S then kol:=kol+1;

Writeln (“ Ответ: ”, kol );

End.

в VBA:

Sub massiv ( )

Dim A( ) As Single

Dim n As Byte

Dim i As Byte

Dim kol As Integer

Dim s As Single

n = Inputbox(“Введи n:”)

ReDim A( n )

CaLL Vvod ( A( ), n) ‘ Вызов процедуры для ввода массива

s = 0

kol = 0

For i = 1 To n

s = s + A( i )

Next i

s = s / n

For i = 1 To n

If A( i ) > s Then kol = kol + 1

Next

MsgBox kol, 0, "Ответ:"

End Sub

Sub Vvod (Mas () as Single, k as Byte) ‘ Процедура для ввода

Dim x1 as Single

For i = 1 To n

x1= InputBox("Введи A[" & i & "]:", "Ввод массива:")

Mas (I)=x1

Next i

End SuB

В среде Мicrosoft Excel: 1 способ:

2 способ: использовать функцию СЧЕТЕСЛИ() самостоятельно.

10. Варианты заданий по теме “Одномерные массивы”

2. Дано натуральное число n , действительные числа a₁…a_n . Вычислить: a₁ , -a₁a₂ , a₁a₂a₃ , … , (-1)ⁿ⁺¹a₁a₂ … a_n.

3. Даны натуральное число n, действительные числа A₁,…,A_n. Вычис­лить обратную величину произведения тех членов A_i, последователь­ности A₁,…,A_n , для которых выполнено условие: i< A_i<i+l.

4. Даны натуральное число n, действительные числа X₁,…,X_n. В последо­вательности X₁,…,X_n все члены, меньшие двух, заменить нулями. Кроме того, получить сумму членов, принадлежащих отрезку [3,7],а также число таких членов.

5. Даны натуральное число n, действительные числа A₁,…,A_n. В последо­вательности A₁,…,A_n все неотрицательные члены, не принадлежащие отрезку [1,2], заменить на 1.Кроме того получить число отрицательных членов и число членов, принадлежащих отрезку [1,2].

6. Из массива А(10) выбрать отрицательные числа и записать их подряд в массив B(N). Значения массивов вывести на экран.

7. Даны действительные числа a₁,a₂,…,a₁₂₃. Известно, что a₁>0 и что сре­ди a₂, a₃,…, a₁₂₃ есть хотя бы одно отрицательное число. Пусть a₁,…, a_n - чле­ны данной последовательности, предшествующие первому отрица­тельному члену (n заранее неизвестно). Получить: a₁+ a₂+…+ a_n.

8. Написать программу, которая позволяет получить элементы массива А(10) в обратном порядке.

9. Даны натуральное число n, действительные числа A₁,…,A_n. В последо­вательности A₁,…,A_n все отрицательные члены увеличить на 0.5, а все неотрицательные заменить на 0.1.

10. Даны действительные числа a₁,a₂,…,a₁₂₃. Известно, что a₁>0 и что сре­ди a₂,a₃,…,a₁₂₃ есть хотя бы одно отрицательное число. Пусть a₁,…,a_n - члены данной последовательности, предшествующие первому отрица­тельному члену (n заранее неизвестно). Получить: a₁, a₁a₂, a₁a₂a₃,…, a₁a₂…a_n.

11. Дано натуральное число n. Получить последовательность B₁,…,B_n, где при i = 1,2,…,n значение B_i равно: i!.

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

13. Дан массив А(10). Найти элементы, абсолютная величина которых больше 5.

14. Даны a₁,a₂,…,a₁₀. Определить количество элементов, имеющих чёт­ные порядковые номера и являющихся нечётными числами.

15. Даны действительные числа a₁,a₂,…,a₁₂₃. Известно, что a₁>0 и что сре­ди a₂,a₃,…,a₁₂₃ есть хотя бы одно отрицательное число. Пусть a₁,…,a_n - чле­ны данной последовательности, предшествующие первому отрица­тельному члену (n заранее неизвестно). Получить: среднее арифме­тическое a₁,…,a_n.

16. Дана последовательность чисел a₁,a₂,…,a₁₀₀. Определить количество элементов больших 7 и имеющих четные номера.

17. Пусть x₀=а; x_k=qx_k-1+b (k=l,2,…). Даны неотрицательное целое n, дей­ствительные а, b, с, d, q (c<d). Принадлежит ли x_n интервалу (c,d)?

18. Даны натуральное число N, целые числа A₁,…, A_N. Заменить все боль­шие семи члены последовательности A₁,…, A_N числом 7. Вычислить количество таких членов.

19. Даны натуральное число n, целые числа a, x₁,…,x_n. Если в последова­тельности x₁,…,x_n есть хотя бы один член, равный а, то получить сумму всех членов, следующих за первым таким членом, в противном случае ответом должно быть число -10.

20. Рассматривается последовательность a₁,…,x₁₀₀₀. Требуется опреде­лить, сколько членов последовательности с номерами 1,2,4,8,16,… имеют значение, меньшее, чем 0.25. При этом считать, что:

a) a_k = sin²(3k + 5) - cos (k² - 15) , k = 1,2,…,1000 ;

b) a₁,…,a₁₀₀₀ - заданные действительные числа ;

c) a₁ = 0.01; a_k = sin (k + a_k-1) , k = 2,…,1000.

21. B массиве А(10) все положительные элементы заменить на 0 и найти сумму отрицательных элементов.

22. Вычислить квадратный корень суммы квадратов элементов действи­тельного массива В(45).

23. Вычислить отношение квадрата суммы элементов массива С(40) к сумме квадратов его элементов.

24. Дан вещественный массив А(100). Заполнить вещественный массив С(100), i -й элемент которого равен сумме первых i элементов массива А.

25. Даны числа A₁,A₂,…,A_n. Найти сумму всех четных чисел.

26. Даны целые числа a₁,…,a₄₅. Получить число отрицательных членов последовательности a₁,…,a₃₅ и число нулевых членов всей последовательности a₁,…,a₄₅.

27. Дана последовательность чисел a₁,a₂,…,a₁₀₀. Найти сумму элементов, удовлетворяющих условию | a_i | < i².

28. Дано натуральное число n, действительные числа a₁…a_n. Вычислить: | a₁ |, | a₁ + a₁ |,…,| a₁ + a₂ +…+a_n |.

29. Дан целочисленный массив А(100). Заполните вещественный массив В(100), i -й элемент которой равен среднему арифметическому первых i - элементов массива А:

В[ i ]=(А[ 1 ]+…+ А[ i ])/i.