Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал - 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) - выводит среднее арифметическое значение на экран. Код выполняет следующие действия:
    1. Инициализирует переменные n, a, i, k, s.
    2. Генерирует случайные числа для заполнения массива a.
    3. Проверяет каждый элемент массива на попадание в заданный интервал.
    4. Если элемент попадает в интервал, то суммирует его со значением переменной s и увеличивает счетчик k на единицу.
    5. После проверки всех элементов массива, выводит среднее арифметическое значение на экран.

Оцени полезность:

9   голосов , оценка 3.444 из 5
Похожие ответы