Dim n As Byte

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

Дан одномерный массив А(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.

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

31. Дана последовательность чисел a₁,a₂,…,a₁₀₀.0пределить количество элементов с четными номерами.

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

33. Даны натуральное число n, действительные числа a₁,…,a_n. Найти длину наименьшего отрезка числовой оси, содержащего числа a₁,…,a_n.

34. Даны действительные числа х, y₁,…,y₁₂. Выяснить, во-первых, верно ли, что y₁ х y₁₂, и, во-вторых, верно ли, что t₁ х t₂ , где t₁ - наи­меньшее, a t₂ - наибольшее среди y₁,…,y₁₂. (Какие комбинации от­ветов на первый и второй вопросы возможны?).

35. Даны натуральное число n, действительные числа a, x₁,…,x_n (x₁ x₂ … x_n). Получить последовательность y₁,…,y_n+1 , членами которой являются члены последовательности x₁,…,x_n и значение a, такую, что y₁ y₂ … y_n+1.

36. Дано натуральное число n. Найти знакочередующуюся сумму цифр числа n (пусть запись n в десятичной системе есть . Найти:

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

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

39. Даны действительные числа a₁,…, a₇₀. Получить (вывести) последовательность a₂,a₃,…,a₇₀,a₁.

40. Даны натуральное число n, действительные числа a, b (a не равно b) Получить r₀, r₁,…, r_n, где r_i = а + i h, h=(b-a)/n.

41. Дано натуральное число n, действительные числа a₁…a_n. Вычислить: a₁+1!,a+2!,…, a_n+n!.

42. Даны действительные числа a₁,a₂…a₅₀. Найти максимальное из них.

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

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

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

46. Дана последовательность чисел a₁,a₂,…,a₁₀₀. Найти количество эле­ментов, модуль которых больше 7.

47. Дано натуральное число n, действительные числа a₁,…,a_n. По­лучить числа b₁,…,b_n, которые связаны с a₁,…,a_n следующим образом: b₁= a₁, b_n=a_n, b_i=(a_i+1–a_i)/3, i=2,…,n-1.

48. Дано натуральное число n, действительные числа a₁,…,a_n (n >=6). По­лучить: а) a₆,a₇,…,a_n; б) a₆,a₇,…,a_n,a₁; в) a₆,a₇,…,a_n,a₅.

49. Даны целые числа A₁,…,A₅₀. Получить сумму тех чисел данной после­довательности, которые: a) кратны 5; b) нечётны и отрицательны; c) удовлетворяют условию |Ai| <i².

50. Даны натуральное число n, целые числа A₁…A_n. Найти количество и сумму тех членов данной последовательности, которые делятся на 5 и не делятся на 7.

51. Даны натуральные числа n,p, целые числа A₁,…,A_n. Получить произ­ведение членов последовательности A₁,…,A_n, кратных p.

52. Даны целые числа p,q, A₁…A₆₇ (p>q 0). В последовательности A₁…A₆₇ заменить нулями члены, модуль которых при делении на p даёт в остатке q.

53. Даны натуральное число n, действительные числа A₁,…,A_n. Получить удвоенную сумму всех положительных членов последовательности A₁,…,A_n.

54. Дан целочисленный массив А(99). Проверьте, является ли он пере­вертышем, т.е. верно ли, что A |1| = A |99|, A |2| = A |98|, A |3| = A |97|,… Составить алгоритм, блок-схему, программу.

55. Найти количество положительных и количество отрицательных эле­ментов вещественного массива А (100).

56. Дан вещественный массив А(100). Вычислить:

57. Дан вещественный массив А(100). Вычислить:

58. Вычислить массив X={x_i}; ; n ≤ 20 по формуле

, если i ≤ 9

, если i > =9.

Вычисленный массив вывести на печать. Вычислить среднее арифметическое всех значений X.

59. Задан массив X={x_i}; ; n ≤ 20. Получить новый массив Y={Y_i} по правилу:

В массиве найти максимальный и минимальный элементы.

60. Задан массив X={x_i}; ; n ≤ 20, где все числа целые и не равны нулю. В массиве заменить нулями все отрицательные компоненты, кроме максимального и минимального числа, а все положительные компоненты, кроме максимального и минимального числа, заменить единицей.

Вычисленный массив вывести на печать.

61. Вычислить компоненты массива A по формуле:

; ; n ≤ 20.

Вычисленный массив вывести на печать. Преобразовать массив по правилу – все положительные компоненты увеличить на 2,4, а отрицательные заменить на их квадратные корни.

62. Вычислить массив X={x_i}; ; n ≤ 20 по формуле:

, где элементы массива Y={y_i}; ; n ≤ 20 задаваемого с клавиатуры.

Вычисленный массив вывести на печать. Найти наименьший элемент массива Y={y_i}

63. Вычислить массив X={x_i}; ; n ≤ 20 по формуле:

, если

, если

Вычисленный массив вывести на печать. Вычислить минимальный элемент и возвести его в квадрат.

64. Вычислить массив X={x_i}; ; n ≤ 20 по формуле:

, если i ≤ 5

, если i > 5

Вычисленный массив вывести на печать. Вычислить произведение наибольшего и наименьшего элементов массива X.

65. Вычислить массив X={x_i}; ; n ≤ 20 по формуле:

Вычисленный массив вывести на печать. Найти наименьший положительный компонент массива.

66. Задан массив X={x_i}; ; n ≤ 30. Вычислить ; .

Вычисленный массив вывести на печать. Найти наименьшую компоненту.

67. Дано целое число k и вещественное а (а>0). Массив X={x_i}; ; n ≤ 20 образован по формуле .

Вычисленный массив вывести на печать. Найти максимальный элемент, а элемент предшествующий максимальному обратить в ноль (например: 1,6,8,3,4,9. 9 -здесь максимальное, а 4 предшествующий).

68. Получить элементы массива A по формуле:

; ; n ≤ 30.

Вычисленный массив вывести на печать.

Найти минимальный по модулю элемент массива A.

69. Вычислить компоненты вектора Y по формуле:

; ; n ≤ 30.

Вектор Y вывести на печать. Найти квадрат суммы положительных и сумму квадратов отрицательных компонент вектора Y.

70. Задан массив X={x_i}; ; n ≤ 50. Получить новый массив из отрицательных и максимального элементов массива.

Вычисленный массив вывести на печать.

71. Задан массив X={x_i}; ; n ≤ 20. Получить новый массив, умножив отрицательные элементы в 3 раза, положительные уменьшив на 7, а максимальное и минимальное значения обнулить. Вычисленный массив вывести на печать.

72. Задан массив X={x_i}; ; n ≤ 40. Заменить все элементы их обратными величинами, затем увеличить в 5 раз. Вычислить сумму кубических корней элементов массива.

Вычисленный массив вывести на печать.

73. Даны целые числа а₁, а₂ ,а₃ ,…,а_n; n ≤ 30. Все элементы больше 3 возвести в квадрат, минимальное возвести в -3ю степень а остальные элементы обнулить. Вычисленный массив вывести на печать.

74. Даны два массива X={x_i}; ; n ≤ 20 и Y={y_i}; ; m ≤ 10. Получить новый массив Z={z_i}; ; p ≤ 40 в котором первые 20 значений занимают квадраты элементов массива X, следующие 10 элементы массива Y, остальные - это элементы массива Y делённые на 2.

Вычисленный массив вывести на печать.

75. Получить элементы массива A по формуле:

; ; n ≤ 20.

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

76. Даны действительные числа а₁, а₂ ,а₃ ,…,а_n; n ≤ 30. Вычислить , где s-сумма членов последовательности, не превосходящих 3, а r-сумма членов последовательности, больших 3.

77. Даны действительные числа а₁, а₂ ,а₃ ,…,а_n; n ≤ 30. Вычислить MAX (|a₁|,.., |a_n|) и MIN (|a₁|,.., |a_n|), а также F=(MIN / MAX)*100.

78. Задан массив X={x_i}; ; n ≤ 32. Заменить все элементы ≥1 на 1, а элементы <1 на 0. Вывести на печать в виде матрицы 8x4.

79. Вычислить вектор Y, каждая компонента которого определяется по формуле:

, если x_i ≤ 0,5

, если x_i > 0,5

; ; n≤50

Вычисленный массив вывести на печать.

80. Задан массив X={x_i}; ; n ≤ 40. Подсчитать количество отрицательных элементов в массиве и разделить каждый положительный элемент на это число.

81. Задан массив X={x_i}; ; n ≤ 20, компоненты массива расположены в порядке возрастания. Дана переменная L. Переменную L расположить между компонентами массива таким образом, чтобы выполнялось условие a_i>L>a_i+1 Вычисленный массив вывести на печать.

82. Вычислить компоненты вектора X={x_i}; ; n ≤ 20 по формуле: Преобразовать полученный вектор по правилу: все компоненты, кроме минимального и максимального, возвести в квадрат. Вычисленный массив вывести.

83. Задан массив X={x_i}; ; n ≤ 20 и действительные числа A,B,C. Получить новый массив Y={Y_i} по правилу:

• min (X). Вычисленный массив вывести.

84. Задан массив X={x_i}; ; n ≤ 20. Получить новый массив переписав все элементы в обратном порядке. Найти sr - среднее арифметическое компонентов нового массива и умножить компоненты массива X на sr. Оба массива вывести на печать.

85. Задан массив X={x_i}; ; n ≤ 20. Найти минимальный и максимальный компоненты, умножить массив X на величину min/max и вычислить среднее арифметическое нового массива. Вычисленный массив вывести на печать.

86. Вычислить массив X={x_i}; ; n ≤ 20 по формуле:

, если 5< i ≤ 15

, в противном случае.

Вычисленный массив вывести на печать. Вычислить сумму с 3 по 17 элементов массива.

Дата добавления: 2015-10-30