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

@Anti · Регистрация: 08.10.2014

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

@ildwine · 14.10.2014, 06:59

Pascal

const
  n = 15;
var
  a : array [1..n] of integer;
  i, d, f, k1, k2 : integer;
  s : real;
begin
  k1 := 0; k2 := 0;
  s := 0;
  writeln('исходный массив:');
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(100);
    write(a[i]:4)
  end;
  writeln;
  write('введите D: ');
  readln(d);
  writeln('введите F: ');
  readln(f);
  for i := 1 to n do
  begin
    if (a[i] > d) and (odd(i)) then
    begin
      s := s + a[i];
      inc(k2)
    end;
    if a[i] <= f then inc(k1)
  end;
  writeln('среднее арифметическое чисел, больших D и стоящих на нечетных местах: ', (s/k2):0:4);
  writeln('количество чисел, небольших заданного F: ', k1);
  readln
end.

@Anti · 14.10.2014, 20:27 **[ТС]**

Большое спасибо!!

@Anti 0 / 0 / 0 Регистрация: 08.10.2014 Сообщений: 32
		1
	Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах 13.10.2014, 23:04. Показов 1723. Ответов 2 Метки нет (Все метки) Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах, и определить количество чисел, небольших заданного F. Надо в Паскале Заранее Спасибо __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Anti 0 / 0 / 0 Регистрация: 08.10.2014 Сообщений: 32
	14.10.2014, 20:27 [ТС]	3
	Большое спасибо!! 0

Опции темы

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

Решение