Найти среднее арифметическое всех положительных элементов массива

@vita_vita · Регистрация: 26.03.2014

Найти среднее арифметическое всех положительных элементов массива. Проверить, имеют ли все элементы массива один знак. Проверить, содержит ли массив знакопеременную последовательность.

@ildwine · 27.03.2014, 07:58

Pascal

const
  n = 10;
var
  a : array [1..n] of integer;
  i, s, k : integer;
begin
  randomize;
  s := 0;
  k := 0;
  for i := 1 to n do
  begin
    a[i] := random(10) - 5;
    write(a[i]:4);
    if a[i] > 0 then
    begin
      k := k + 1;
      s := s + a[i]
    end
  end;
  writeln;
  writeln('среднее арифметическое положительных: ', (s / k):0:3)
end.

@vita_vita 0 / 0 / 0 Регистрация: 26.03.2014 Сообщений: 4
		1
	Найти среднее арифметическое всех положительных элементов массива 26.03.2014, 20:20. Показов 1971. Ответов 1 Метки нет (Все метки) Найти среднее арифметическое всех положительных элементов массива. Проверить, имеют ли все элементы массива один знак. Проверить, содержит ли массив знакопеременную последовательность. 0

Опции темы

Найти среднее арифметическое всех положительных элементов массива

Решение