Вычисления среднего арифметического элементов массива с четными номерами

@Yulianochka · Регистрация: 18.04.2015

4.3. Составьте программу вычисления среднего арифметического элементов с четными номерами.
помогите пожалуйста

@Peoples · 17.03.2016, 20:56

Pascal

program pr;
 
var
  a: array [1..100] of integer;
  i, n, cout, sum: integer;
  avg: real;
 
begin
  cout := 0;
  sum := 0;
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(21);   // диапазон любой ставь( здесь от 0 до 20);
    write(a[i]:3);
    if i mod 2 = 0 then
    begin
      cout := cout + 1;
      sum := sum + a[i];
    end;
  end;
  writeln;
  writeln('Среднее арифметическое: ', sum / cout);
end.

@Yulianochka · 17.03.2016, 21:05 **[ТС]**

спасибо Вам большое

@capricornus CF · 18.03.2016, 00:31

Peoples, уже можно подумать, чтобы начать заменять

Сообщение от Peoples

Pascal

1	if i mod 2 = 0 then

на

Pascal

1	if not odd(i) then

, весьма удобная функция.

@Yulianochka 0 / 0 / 0 Регистрация: 18.04.2015 Сообщений: 72
		1
	Вычисления среднего арифметического элементов массива с четными номерами 17.03.2016, 19:45. Показов 2048. Ответов 3 Метки нет (Все метки) 4.3. Составьте программу вычисления среднего арифметического элементов с четными номерами. помогите пожалуйста 0

@Yulianochka 0 / 0 / 0 Регистрация: 18.04.2015 Сообщений: 72
	17.03.2016, 21:05 [ТС]	3
	спасибо Вам большое 0

Опции темы

Вычисления среднего арифметического элементов массива с четными номерами

Решение