Дан массив. Определить среднеарифметическое всех чисел меньше заданного

@Cider · Регистрация: 06.05.2014

Доброго времени суток, дамы и господа. Прошу помощи, помогите написать программу на Паскале Авс. Дан массив. Определить среднеарифметическое всех чисел меньше заданного. Заранее ысем спасибо!

@programax · 06.05.2014, 16:29

Так?

Pascal

var
  a: array[0..9] of integer;
  i, n, l: integer;
  av: real;
begin
  readln(n);
  for i := 0 to 9 do
  begin
    a[i] := random(25);
    if a[i] < n then
      av := av + a[i];
    l := l + 1;
  end;
  av := av / l;
  writeln('Среднее арифметическое чисел <', n:3, ' =', av:4);
end.

@Cider · 06.05.2014, 16:36 **[ТС]**

В точности так!

@Cider 0 / 0 / 0 Регистрация: 06.05.2014 Сообщений: 6
		1
	Дан массив. Определить среднеарифметическое всех чисел меньше заданного 06.05.2014, 13:15. Показов 1056. Ответов 2 Метки нет (Все метки) Доброго времени суток, дамы и господа. Прошу помощи, помогите написать программу на Паскале Авс. Дан массив. Определить среднеарифметическое всех чисел меньше заданного. Заранее ысем спасибо! 0

@Cider 0 / 0 / 0 Регистрация: 06.05.2014 Сообщений: 6
	06.05.2014, 16:36 [ТС]	3
	В точности так! 0

Опции темы

Дан массив. Определить среднеарифметическое всех чисел меньше заданного

Решение