Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал - Turbo Pascal

  1. Помогите решить 2 задания: 1).Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал от –2 до 10. Размерность массива –25. Заполнение массива осуществить случайными числами от -5 до 15.


textual

Код к задаче: «Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал - Turbo Pascal»

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.

СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.444 из 5



Похожие ответы
  1. Пусть дана вещественная матрица размером n*m. Найдите среднее арифметическое наибольшего и наименьшего значений её элементов, расположенных ниже главной диагонали.- это условие. Напиши пожалуйста программу!

  1. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

  1. Вычислить С при любых значениях x, а, b:

  1. По введенным значениям аргумента х вычислить значение функции, заданной графически.Помогите пожалуйста написать программу в Паскале

  1. Здравствуйте, помогите написать программу на паскале, где

  1. Вычислить - Z=m1+m2/2, где m1 и m2 наименьшие элементы массивов X(20) и X(35).Использовать подпрограмму нахождения минимального элемента массива.

  1. Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!

  1. Даны x, y и z. Вычислите a, b, если: Таблицу и блок-схему, будьте добры.

  1. Напишите программу Pascal Вычислить объём конуса:

  1. Дан произвольный одномерный массив (элементы вводятся с клавиатуры). Формирование элементов массива, обработку и если нужно вывод массива оформить отдельными подпрограммами. Вычислить сумму нечетных элементов, а все остальнве удвоить.