Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал - Turbo Pascal (34034)
Формулировка задачи:
Помогите решить 2 задания:
1).Вычислить среднее арифметическое значение тех элементов одномерного массива, которые
попадают в интервал от –2 до 10. Размерность массива –25. Заполнение массива осуществить
случайными числами от -5 до 15.
Решение задачи: «Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал»
textual
Листинг программы
const n=25; var a: array[1..n] of integer; i,k,s: integer; begin k:=0; writeln('ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў:'); for i:=1 to n do begin a[i]:=random(21)-5; write(a[i]:3); if (a[i]>=-2) and (a[i]<=10) then begin s:=s+a[i]; inc(k); end; end; writeln; writeln('ÑðåäГ*ГҐГҐ Г*ðèôìåòè÷åñêîå èñêîìûõ ýëåìåГ*òîâ = ',s/k); readln; end.
Объяснение кода листинга программы
В данном коде объявлены следующие переменные:
- n - количество элементов в массиве (равное 25 в данном случае);
- a - одномерный массив целых чисел;
- i - индекс текущего элемента массива;
- k - счетчик для подсчета суммы значений массива, попадающих в заданный интервал;
- s - сумма значений массива, попадающих в заданный интервал;
- random(21)-5 - функция, генерирующая случайное число в диапазоне от -5 до 20 (включительно);
- write(a[i]:3) - записывает значение текущего элемента массива в файл;
- if (a[i]>=-2) and (a[i]<=10) then - проверяет, попадает ли текущее значение элемента массива в заданный интервал;
- inc(k) - увеличивает счетчик k на единицу;
- writeln('ÑðåäГГҐГҐ Гðèôìåòè÷åñêîГ� = ',s/k) - выводит среднее арифметическое значение на экран.
Код выполняет следующие действия:
- Инициализирует переменные n, a, i, k, s.
- Генерирует случайные числа для заполнения массива a.
- Проверяет каждый элемент массива на попадание в заданный интервал.
- Если элемент попадает в интервал, то суммирует его со значением переменной s и увеличивает счетчик k на единицу.
- После проверки всех элементов массива, выводит среднее арифметическое значение на экран.