Подсчитать количество чисел, стоящих на нечётных местах, и вычислить среднее арифметическое чисел, меньших заданного X

@Pa6oT9lra · Регистрация: 01.11.2019

Подсчитать количество чисел, стоящих на нечётных местах, и вычислить среднее арефметическое чисел, меньших заданного X

@ZX Spectrum-128 · 19.12.2019, 10:53

Pascal

const
  n = 10;
 
var
  sr: real;
  m, x, i, k: integer;
  a: array [1..n] of real;
 
begin
  sr := 0;
  k := 0;
  m := 0;
  readln(x);
  for i := 1 to n do
  begin
    a[i] := random(n) + 1;
    write(a[i]:4);
    if odd(i) then
      inc(k);
    if a[i] < x then
    begin
      inc(m);
      sr := sr + a[i];
    end;
  end;
  writeln;
  writeln(k);
  if m > 0 then
  begin
    sr := sr / m;
    writeln('Среднее арифметическое : ', sr)
  end
  else
    writeln('Нет таких.');
end.

@Pa6oT9lra 0 / 0 / 0 Регистрация: 01.11.2019 Сообщений: 10
		1
	Подсчитать количество чисел, стоящих на нечётных местах, и вычислить среднее арифметическое чисел, меньших заданного X 19.12.2019, 10:40. Показов 1434. Ответов 1 Метки нет (Все метки) Подсчитать количество чисел, стоящих на нечётных местах, и вычислить среднее арефметическое чисел, меньших заданного X 0

Опции темы