Решение задач обработки одномерных массивов
Пример
1.Ввести одномерный массивMиз пятнадцати элементов и числоv.
Для каждого элемента массива вычислить
.
Вывести полученный массив. Поменять
местами второй и максимальный элементы
массиваMN. Найти
среднее арифметическое элементов
модифицированного массиваMN,
индексы которых при делении на три дают
остаток 2. Заменить полученным значением
отрицательные элементы массиваMN.
Если отрицательных элементов нет, выдать
соответствующее сообщение.
Решение.
Program mass1;
var
M, MN: array[1..15] of real; {описание одномерных массивов, каждый из пятнадцати вещественных чисел}
v, max, prom, S, Sr_ar: real;
i, k, n: integer;
begin
writeln('Введи 15 элементов массива');
for i:=1 to 15 do {цикл для ввода 15-ти элементов M}
begin
write('M[',i,']=');
readln(M[i]); {ввод элемента с текущим индексом i}
end;
writeln('Введи число v');
readln(v); {ввод числа v}
for i:=1 to 15 do {цикл для создания и вывода 15-ти элементов MN}
begin
MN[i]:=sqrt(abs(sin(M[i])/cos(M[i])))-
(sqr(v)-ln(i)/ln(2))/(2+2*sin(M[i]));
writeln('MN[',i,']=',MN[i]:5:2);
end;
{поиск максимального элемента массива MN:}
max:=MN[1]; k:=1;
for i:=2 to 15 do
if MN[i]>max then
begin max:=MN[i]; k:=i end;
writeln('max=',max:5:2);
{меняем местами второй и минимальный элементы массива MN:}
prom:=MN[2]; {промежуточной величине присваивается значение второго элемента массива MN}
MN[2]:=MN[k]; {второму элементу массива MN присваивается значение максимального элемента, номер k которого найден выше}
MN[k]:=prom; {элементу под номером k присваивается значение второго элемента, хранящегося в переменной prom}
k:=0; S:=0; {начальное значение счетчика и суммы}
for i:=1 to 15 do
if (i mod 3)=2 then
begin k:=k+1; {значение счетчика увеличивается на единицу, если остаток от деления номера i на 3 равен 2}
S:=S+MN[i] {суммирование элементов, соответствующих условию}
end;
Sr_ar:=S/k; {расчет среднего арифметического}
writeln('Sr_ar=',Sr_ar:5:2); {вывод среднего арифметического}
k:=0; {начальное значение счетчика}
for i:=1 to 15 do
if MN[i]<0 then
begin
k:=k+1;
MN[i]:=Sr_ar;
end;
if k>0 then
for i:=1 to 15 do writeln('MN[',i,']=',MN[i]:5:2)
else writeln('Отрицательных элементов нет');
end.
Задание 1.Составить программу решения задачи из таблицы 1. Результаты вычислений распечатать.
Таблица 1 − Задачи по обработке одномерных массивов
|
Вариант |
Задача |
|
1 |
Ввести
одномерный массив A
из семи элементов и число b.
Для каждого элемента массива вычислить
|
|
2 |
Ввести
одномерный массив B
из восьми элементов и число x.
Для каждого элемента массива вычислить |
|
3 |
Ввести
одномерный массив C
из десяти положительных элементов и
число a.
Для каждого элемента массива вычислить |
|
4 |
Ввести
одномерный массив M
из девяти элементов и число w.
Для каждого элемента массива вычислить |
.
Вывести полученный массив. Найти сумму
элементов массива Z с нечетными
индексами. Подсчитать количество
отрицательных элементов Z
.
Вывести полученный массив. Найти сумму
элементов массиваB2
с четными индексами. Подсчитать
количество положительных элементов
B2
.
Вывести полученный массив. Найти
максимальный элементY.
Подсчитать количество элементов Y,
больших числа 5
.
Вывести полученный массив. Найти
минимальный элементX.
Подсчитать количество элементов X,
значение которых больше двухОкончание таблицы 1
|
Вариант |
Задача |
|
5 |
Ввести
одномерный массив D0
из шести элементов и число t1.
Для каждого элемента массива вычислить |
|
6 |
Ввести
одномерный массив A0
из пятнадцати элементов и число b.
Для каждого элемента массива вычислить
|
|
7 |
Ввести
одномерный массив F
из одиннадцати элементов и число m.
Для каждого элемента массива вычислить |
|
8 |
Ввести
одномерный массив F
из десяти элементов и число k.
Для каждого элемента массива вычислить |
|
9 |
Ввести
одномерный массив H
из тринадцати элементов и число a.
Для каждого элемента массива вычислить |
|
10 |
Ввести
одномерный массив A
из десяти элементов и число b.
Для каждого элемента массива вычислить |
|
11 |
Ввести
одномерный массив B
из десяти элементов и число d.
Для каждого элемента массива вычислить |
|
12 |
Ввести
одномерный массив G
из десяти элементов и число h.
Для каждого элемента массива вычислить |
.
Вывести полученный массив и найти
среднее арифметическое его положительных
элементов
.
Вывести полученный массив. Заменить
значение первого элемента массиваA1
значением минимального элемента этого
массива
.
Вывести полученный массив. Найти
среднее арифметическое элементов
массиваG,
больших числа четыре. Определить
количество таких элементов
.
Вывести полученный массив. Найти сумму
отрицательных элементов массиваF1.
Заменить модулем полученного значения
элементы с четными индексами
.
Вывести полученный массив. Найти
максимальный отрицательный элемент
массиваK
и заменить
второй элемент массива K
найденным значением
.
Вывести полученный массив. Поменять
местами минимальный и максимальный
элементыС
.
Вывести полученный массив. Определить
произведение отрицательных элементов
массиваA.
Поменять местами значения последнего
и минимального элементов A
.
Вывести полученный массив. Найти
среднее арифметическое элементовM,
значения которых по модулю не превосходят
числа 2. Определить среди них минимальный
элемент