Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и подсчитать количество чисел

@Agent-003 · Регистрация: 30.10.2019

Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и подсчитать количество чисел, небольших заданного F.

@ProgrammerNew · 30.10.2019, 22:22

Pascal

function Summ(arr: array of integer; D: integer): real;
begin
  var k := 0;
  for var i := 0 to arr.Length - 1 do
    if arr[i] > D then begin Result += arr[i]; Inc(k) end   
    else if (i mod 2 = 1) then begin Result += arr[i]; Inc(k) end;
  Result := Result / k;
end;
 
var
  k: array of integer;
  D, F, n, elm: integer;
 
 
begin
  write('Введите D - '); readln(D);
  write('Введите F - '); readln(F);
  write('Введите кол-во элементов - '); readln(elm);
  
  SetLength(k, elm);
  
  for var i := 0 to k.Length - 1 do
  begin
    read(k[i]);
    if k[i] < F then Inc(n);
  end;
  writeln();
  writeln(' Среднее арефметическое чисел, больших заданного D и стоящих на нечетных местах - ', Summ(k, D));
  writeln('Кол-во чисел меньше F - ', n);
  
end.

@Agent-003 0 / 0 / 0 Регистрация: 30.10.2019 Сообщений: 4
		1
	Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и подсчитать количество чисел 30.10.2019, 20:29. Показов 880. Ответов 1 Метки нет (Все метки) Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и подсчитать количество чисел, небольших заданного F. 0

Опции темы