Создать одномерный массив из 15 элементов,вычислить среднеарифметическое значение нечетных элементов с нечетным индексом

@Anton356 · Регистрация: 05.04.2016

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

Pascal

var
Massiv:array [1..15] of integer;// вот он мой массив
B:array [1..8] of integer;// массив куда хотел занести нечетное
I,J,C: integer;
begin
 for I:=1 to 15 do
 Massiv[I]:=I; //заполняем массив
 for C:=1 to 15 do  
 If Massiv[I] mod 2>0 then B[J];//если в массиев Massiv есть значения остаток от деления 0> то заносим их в массив B.
 end.                           // не заносит...пишет ожидалось имя процедуры или функции

@ZX Spectrum-128 · 10.11.2017, 13:54

Pascal

var
  Massiv: array [1..15] of integer;// вот он мой массив
  B: array [1..8] of integer;// массив куда хотел занести нечетное
  I, J, C: integer;
 
begin
  for I := 1 to 15 do
  begin
    Massiv[I] := I; //заполняем массив
    write(Massiv[I]:5);
  end;
  writeln;
  j := 0;
  c := 0;
  for i := 1 to 15 do  
    if odd(Massiv[I]) and odd(i) then 
    begin
      inc(j);
      c := c + Massiv[I];
    end;
  writeln('Ср. арифм. ', c / j);
end.

Добавлено через 29 секунд

Сообщение от ZX Spectrum-128

массив куда хотел занести нечетное

А зачем?

@Anton356 · 10.11.2017, 14:13 **[ТС]**

Спасибо большое!Все доступно и понятно, кроме этого

Pascal

1	c := c + Massiv[I];

для чего эта строчка нужна?

Добавлено через 1 минуту

Сообщение от ZX Spectrum-128

массив куда хотел занести нечетное
А зачем?

а чтоб данные никуда не потерялись не в пустоту же они уходить должны, я решил результаты туда затолкать и потом среднее арифметическое посчитать

Добавлено через 5 минут

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

alВыделить код
1
c := c + Massiv[I];
для чего эта строчка нужна?

а все я понял,в массиве остаются только нечетные и мы их сумму в С переносим и делим ее на количество цифр

@ZX Spectrum-128 · 10.11.2017, 14:13

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

для чего эта строчка нужна?

Здесь мы считаем сумму нечетных элементов с нечетным индексом.

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

а чтоб данные никуда не потерялись не в пустоту

Они не нужны для решения данной задачи.

@Anton356 · 10.11.2017, 14:22 **[ТС]**

Сообщение от ZX Spectrum-128

Они не нужны для решения данной задачи.

я до этого момента про функцию odd ничего не знал, поэтому решил поделить массив mod 2 и занести нечетки в другой массив и потом сложить отдельно

@ZX Spectrum-128 6809 / 4566 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	10.11.2017, 14:13	4
	Сообщение от Anton356 для чего эта строчка нужна? Здесь мы считаем сумму нечетных элементов с нечетным индексом. Сообщение от Anton356 а чтоб данные никуда не потерялись не в пустоту Они не нужны для решения данной задачи. 0

@Anton356 0 / 0 / 1 Регистрация: 05.04.2016 Сообщений: 134
	10.11.2017, 14:22 [ТС]	5
	Сообщение от ZX Spectrum-128 Они не нужны для решения данной задачи. я до этого момента про функцию odd ничего не знал, поэтому решил поделить массив mod 2 и занести нечетки в другой массив и потом сложить отдельно 0

Опции темы

Создать одномерный массив из 15 элементов,вычислить среднеарифметическое значение нечетных элементов с нечетным индексом

Решение