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

@ВИКТОР468 · Регистрация: 20.02.2019

Студворк — интернет-сервис помощи студентам

@ZX Spectrum-128 · 13.03.2019, 09:45

ВИКТОР468, внизу страницы "Похожие темы".

Verevkin · 13.03.2019, 09:53

Ахтунг! Не отлаживал! Писал на заборе!

Delphi

function foo(const x: array of int32; const A: int32; out average: double): DWORD;
var
  idx, count, sum: int32;
begin
  result:= 0; // количество чисел, по величине не больших A и стоящих на четных местах
  count:=  0; // количество ненулевых чисел
  sum:=    0; // сумма всех чисел массива
  
  for idx:= 0 to high(x) do
    begin
      inc(sum, x[idx]);
      inc(count, int32(x[idx] <> 0));
      inc(result, int32((x[idx] <= A) and (idx and 1 = 0));
    end;
  
  if count <> 0  
    then average:= sum / count // среднее арифметическое ненулевых чисел
    else average:= -NAN; // нет ненулевых элементов
end;

@ВИКТОР468 0 / 0 / 0 Регистрация: 20.02.2019 Сообщений: 2
		1
	Найдите среднее арифметическое ненулевых чисел и количество чисел, по величине не больших A и стоящих на четных местах. 13.03.2019, 09:17. Показов 2133. Ответов 2 Метки сделать (Все метки) Найдите среднее арифметическое ненулевых чисел и количество чисел, по величине не больших A и стоящих на четных местах. 0

@ZX Spectrum-128 6806 / 4565 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	13.03.2019, 09:45	2
	ВИКТОР468, внизу страницы "Похожие темы". 0

Опции темы