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

@Mixali4 · Регистрация: 30.11.2014

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

Прошу пожалуйста помочь срочно,очень надо,заранее большое спасибо.
Решить надо всего пару задачек на одномерные массивы.

3. Ввести массив целых чисел Х(n). Найти среднее арифметическое значений элементов массива, не принадлежащих интервалу [-2;2]. Если среднее арифметическое значение>2, заменить значения первого и последнего элементов на 1, в ином случае – на 0. Массив распечатать.
4. Ввести массив А(n). Найти сумму положительных элементов массива, исключая при этом те элементы, которые кратны трём. Полученной суммой заменить элементы 2-ой половины массива. Массив отпечатать.

@erl27 · 01.12.2014, 00:09

3)

Pascal

var
  X: array[1..100] of integer;
  i, n, k: integer;
  S: real;
  
begin
  write('n = ');
  readln(n);
  S := 0;
  k := 0;
  for i := 1 to n do begin
    x[i] := random(11) - 5;
    write(x[i]:3);
    if (x[i] < -2) or (x[i] > 2) then begin
      S := S + x[i]; //увеличиваем сумму
      inc(k) //увеличиваем количество
    end
  end;
  writeln;
  if k > 0 then begin
    S := S / k;
    writeln('Среднее арифметическое: ', S:0:3);
    if S > 2 then begin
      x[1] := 1;
      x[n] := 1
    end
    else begin
      x[1] := 0;
      x[n] := 0 
    end;
    writeln;
    for i := 1 to n do
      write(x[i]:3)
  end
  else writeln('Элементов, не принадлежащих интервалу [-2, 2] не существует')
end.

@Mixali4 0 / 0 / 0 Регистрация: 30.11.2014 Сообщений: 16
		1
	Найти среднее арифметическое значений элементов массива, не принадлежащих интервалу 30.11.2014, 23:09. Показов 2093. Ответов 1 Метки нет (Все метки) Прошу пожалуйста помочь срочно,очень надо,заранее большое спасибо. Решить надо всего пару задачек на одномерные массивы. 3. Ввести массив целых чисел Х(n). Найти среднее арифметическое значений элементов массива, не принадлежащих интервалу [-2;2]. Если среднее арифметическое значение>2, заменить значения первого и последнего элементов на 1, в ином случае – на 0. Массив распечатать. 4. Ввести массив А(n). Найти сумму положительных элементов массива, исключая при этом те элементы, которые кратны трём. Полученной суммой заменить элементы 2-ой половины массива. Массив отпечатать. 0

	01.12.2014, 00:09

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

Решение