Пример 3.6.1 выполнения задания

Составить программу вычисления среднего значения элементов целочисленного массива X(N), N≤15, кратных K, и поместить округление найденного среднего на место максимального положительного, меньшего M. Прекратить выполнение программы и вывести соответствующее сообщение, если в массиве не найдётся элементов, кратных K, или элементов, меньших M. Вывести с пояснениями найденное среднее значение, максимальное значение и преобразованный массив.

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils;

const

Nmax=15;

type

tX=array[1..Nmax] of Integer;

var

//Начальные значения переменных можно использовать

//при отладке.

X:tX=(11,21,36,65,84,99,51,3,44,22,55,77,12,23,45);

N:Integer=9;

K:Integer=3;

M:Integer=30;

S:Real;

i,Xmax,iMax,L:Integer;

begin

//ВВОД ИСХОДНЫХ ДАННЫХ

Write('Введите количество элементов массива: ');

ReadLn(N);

WriteLn('Введите элементы массива');

for i:=1 to N do

Read(X[i]);

ReadLn;

Write('Введите коэффициент кратности: ');

ReadLn(K);

//ВЫЧИСЛЕНИЕ СРЕДНЕГО ЗНАЧЕНИЯ

//Начальное значение для поиска суммы

S:=0;//элементов массива, кратных K.

//Начальное значение счётчика элементов

L:=0;//массива, включенных в сумму.

for i:=1 to N do

if X[i] mod K = 0 then

begin

S:=S+X[i];

L:=L+1;

end;

//ПРОВЕРКА КОЛИЧЕСТВА ЭЛЕМЕНТОВ, ВКЛЮЧЕННЫХ В S

if L=0 then

begin

Write('в массиве нет элементов, кратных ',K);

ReadLn;

Halt //Завершение работы программы

end;

//ВЫЧИСЛЕНИЕ И ВЫВОД СРЕДНЕГО ЗНАЧЕНИЯ

S:=S/L;//Найденное среднее значение

WriteLn(S:6:1,' - среднее элементов массива, кратных ',K);

//ПОИСК МАКСИМАЛЬНОГО И ЕГО ИНДЕКСА

Write('Введите верхнюю грань искомого максимального: ');

ReadLn(M);

Xmax:=0;

for i:=1 to N do

if (X[i] < M) and (X[i]>Xmax) then

begin

Xmax:=X[i];

iMax:=i;

end;

//ПРОВЕРКА, НАЙДЕН ЛИ МАКСИМАЛЬНЫЙ ЭЛЕМЕНТ

if Xmax=0 then

begin

Write('в массиве нет положительных элементов, меньших ',M);

ReadLn;

Halt //Завершение работы программы

end;

//ЗАМЕНА В МАССИВЕ МАКСИМАЛЬНОГО СРЕДНИМ

X[iMax]:=Round(S);

//ВЫВОД РЕЗУЛЬТАТОВ

WriteLn(Xmax:6,' - максимальное, меньшее ',M);

WriteLn(iMax:6,' - индекс максимального');

WriteLn;

WriteLn('Преобразованный массив');

for i:=1 to N do

Write(X[i]:4);

ReadLn;

end.

Задания 3.6.1 для самостоятельной проработки

Выполнение программы прекратить и вывести соответствующие сообщения, если в массиве не будут найдены требуемые по условию задания значения.

1. Вычислить среднее арифметическое и наименьшее значение среди положительных элементов и произведение отрицательных в массиве D(n), n≤25. Вывести массив, среднее арифметическое, наименьшее значение и произведение.

2. Найти наибольшее и наименьшее значения, их индексы и среднее арифметическое элементов, расположенных между ними в массиве D(n), n≤25. Вывести массив, среднее арифметическое, наименьшее и наибольшее значения и их индексы.

3. Найти наибольшее и наименьшее значения и их индексы в массиве D(n), n≤25. Если индекс наименьшего значения меньше индекса наибольшего, то вычислить сумму элементов, в противном случае произведение. Вывести массив, наименьшее и наибольшее значения и их индексы, сумму или произведение.

4. Вычислить среднее арифметическое значение элементов, удовлетворяющих условию а≤ D_i < b, и найти наименьшее значение среди положительных элементов и его индекс в массиве D(n), n≤25. Вывести массив, среднее арифметическое и наименьшее значение и его индекс.

5. Вычислить сумму положительных элементов до первого отрицательного и произведение отрицательных до первого положительного элемента в массиве D(n), n≤25. Вывести массив, сумму и произведение.

6. Из массива D(n), n≤25 переписать элементы подряд в массив P , расположив вначале положительные, а затем отрицательные. Определить в каком из массивов наименьший элемент встретился первым. Вывести массивы, наименьшие значения и их индексы.

7. Вычислить среднее арифметическое положительных элементов, кратных 2, и произведение отрицательных элементов, кратных 3, в массиве D(n), n≤25. Вывести массив, среднее арифметическое и произведения.

8. Вычислить количество положительных элементов и количество отрицательных элементов массива D(n), n≤25. Если количество положительных элементов больше, то вычислить их среднее арифметическое, в противном случае вычислить их произведение. Вывести массив, количество положительных и количество отрицательных чисел, среднее арифметическое или произведение.

9. Найти наибольшее и наименьшее значения и их индексы в массиве D(n), n≤25. Первый элемент массива заменить наименьшим, а последний – наибольшим значением в массиве. Вывести массив, наименьшее и наибольшее значения и их индексы.

10. Найти наибольшее и наименьшее значения и их индексы в массиве D(n), n≤25. Вычислить их среднее значение и произведение элементов, значения которых превышают среднее значение. Вывести массив, наименьшее, наибольшее значения и их индексы и произведение.

11. Вычислить среднее арифметическое положительных элементов с четными индексами и произведение отрицательных с нечетными индексами в массиве D(n), n≤25. Вывести массив, среднее арифметическое и произведение.

12. В массивах X(n) и Y(n), n≤25, вычислить произведения соответствующих элементов и найти среди них наибольшее и наименьшее значения. Вывести массивы, произведения, наибольшее и наименьшее значения.

13. В массивах X(n) и Y(n), n≤25, вычислить средние значения соответствующих элементов (X_i + Y_i) /2 и найти среди них наибольшее и наименьшее. Вывести массивы, средние значения, наибольшее и наименьшее значения.

14. Вычислить отношение C=A/B, где A - произведение положительных элементов с четными индексами, а B – сумма элементов по абсолютному значению с нечетными индексами массива D(n), n≤25. Вывести массив, произведение, сумму и их отношение.

15. Вычислить разность C=A - B, где A - произведение положительных элементов, а B сумма элементов по абсолютному значению массива D(n), n≤25. Вывести массив, произведение, сумму и их разность.

16. Найти наибольшее и наименьшее значения произведений соседних элементов X_i·Y_i+1 (для последнего элемента X_n·Y₁) в массиве X(n), n≤25. Вывести массив, наименьшее и наибольшее значения произведений.

17. В массивах X(n) и Y(n), n≤25, вычислить произведения пар элементов X_i ·Y_i >A и найти среди них наибольшее и наименьшее значения. Вывести массивы, произведения и наибольшее и наименьшее значения.

18. Вычислить среднее арифметическое положительных элементов и произведение элементов по абсолютному значению, превышающих среднее арифметическое, в массиве D(n), n≤25. Вывести массив, среднее арифметическое и произведение.

19. Вычислить модуль разности соответствующих элементов массивов |X_i – Y_i| и найти среди них наибольшее и наименьшее значения в массивах X(n) и Y(n) n≤25. Вывести массивы, разности и наибольшее и наименьшее значения.

20. Вычислить среднее геометрическое положительных элементов, кратных 2, и сумму отрицательных с нечетными индексами в массиве D(n), n≤25. Вывести массив, среднее геометрическое и сумму.

21. Вычислить суммы рядом стоящих элементов массивов X_i+Y_i+1 (для последнего элемента X_n+Y₁) в массиве X(n), n≤25.и найти среди них наибольшее и наименьшее значения в массивах X(n) и Y(n), n≤25. Вывести массивы, суммы и наибольшее и наименьшее значения.

22. Из массива D(n), n≤25 переписать числа в массив P , расположив подряд вначале отрицательные, а затем положительные. Определить в каком из массивов наименьший элемент по модулю встретился первым. Вывести массивы, наименьшие значения и их индексы.

23. Вычислить сумму и количество положительных элементов, которые превышают B, и произведение элементов по абсолютному значению массива D(n), n≤25. Вывести массив, произведение и сумму и количество.

24. В массивах X(n) и Y(n) n≤25, вычислить количество равенств соответствующих элементов X_i и Y_i и найти пары элементов, имеющих в сумме наибольшее и наименьшее значения. Вывести массивы, количество равенств и наибольшее и наименьшее значения.

25. В массиве D(n), n≤25, вычислить среднее арифметическое положительных элементов до первого отрицательного и найти среди них количество элементов, превышающих среднее арифметическое. Вывести массив, среднее арифметическое и количество элементов.

26. В массиве D(n), n≤25, вычислить произведение положительных элементов до первого отрицательного и найти среди них наибольшее и наименьшее значения. Вывести массив, произведение и наибольшее и наименьшее значения.