Задание 6. Нахождение количества элементов массива
Составить программу нахождения количества элементов одномерного массива Х, совпадающих с первым элементом массива.
При решении задач подобного типа используется дополнительная переменная целого типа, которая является счетчиком элементов массива и которой сначала присваивается значение 0.
Program massiv_6;
Const N=10; {Ввод количества элементов массива}
var i, kol: integer;
X: Array [1..N] of Real;
Begin
Writeln('Введите элементы массива');
For i:= 1 To N Do Read(X[i]); {Ввод элементов массива X}
kol:=0; {Обнуление счетчика kol}
For i:= 1 To N Do
If X[i] = X[1] Then kol:=kol+1;
Writeln ('Количество элементов массива, совпадающих с первым равно', kol:4);
End.
Задание 7. Решение задач по теме Номера задач задает преподаватель!
Составьте программу вывода на экран 15 значений элементов массива А, которые рассчитываются по формуле
.Составьте программу вывода на экран 20 значений элементов массива Х, которые рассчитываются по формуле
.Составьте программу вычисления значений функции
в точках
для произвольного значения а.Составить программу вычисления произведения элементов массива В, если массив состоит из 10 элементов, введенных с клавиатуры.
Составить программу вычисления произведения элементов массива Х, больших 5, если массив состоит из 7 элементов, введенных с клавиатуры. В случае отсутствия таких элементов вывести сообщение на экран.
Составить программу вычисления суммы отрицательных элементов массива В, если массив состоит из 10 элементов, введенных с клавиатуры.
Составить программу вычисления суммы элементов массива А с четными индексами, если массив состоит из 7 элементов, введенных с клавиатуры.
Составьте программу для нахождения минимального элемента массива Х, состоящего из 6 элементов, значения которых рассчитываются по формуле
.Составьте программу для нахождения максимального по модулю элемента массива Х, состоящего из 8 элементов, введенных с клавиатуры.
Составить программу вычисления среднего арифметического значения элементов массива Z с нечетными индексами.
Составить программу вычисления произведения нечетных элементов массива С, если массив состоит из 11 элементов, введенных с клавиатуры.
Составить программу подсчета количества элементов массива С, лежащих в интервале (a, b).
Вычислить среднее геометрическое элементов вектора У(k), кратных трем.
Определить, кратна ли сумма элементов вектора A(x) семи.
В векторе D(m) определить количество четных элементов.
В векторе У(k) поменять местами первый и минимальный элементы.
Из вектора С(n) сформировать вектор А, содержащий четные элементы вектора С и вектор В, содержащий нечетные элементы.
Найти среднее геометрическое элементов массива С[k] с четными индексами.
В массиве x(n) поменять местами минимальный и последний элементы.
В векторе Т(к) заменить все его элементы, стоящие после максимального, нулями.
Найти среднеквадратичное элементов вектора A(n). s=(a[1]*a[1]+a[2]*a[2]+...+a[n]*a[n])/n.
Элементы вектора В, удовлетворяющие условию B[i]>10, переписать в массив х, а элементы, удовлетворяющие условию B[i] <= 10, переписать в массив У.
В векторе Z(m) определить сумму нечетных элементов.
Определить индексы четных элементов массива А(к).
Определить, кратна ли сумма элементов вектора D(12) пяти.