Дан одномерный массив Zn. Все элементы с нечетными значениями заменить суммой элементов с четными номерами

@Sumrak_Sergei · Регистрация: 20.12.2012

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

Дан одномерный массив Zn. Все элементы с нечетными значениями заменить суммой элементов с четными номерами.

@CodeR · 23.12.2012, 08:24

Pascal

Var Z:array[1..100] of integer;
    i,n,s:integer;
Begin
    write('Введите размерность: ');readln(n);
    For i:=1 to n do
    Begin
      Z[i]:=random(31)-15;
      write(Z[i]:4);
      if i mod 2 = 0 then s:=s+Z[i];
    End;
    writeln;
    writeln('Сумма элементов с четными номерами = ',s);
    writeln('Преобразованный массив');
    For i:=1 to n do
    Begin
      if odd(Z[i]) then Z[i]:=s;
      write(Z[i]:4);
    End;
    readln;
End.

@Sumrak_Sergei 0 / 0 / 0 Регистрация: 20.12.2012 Сообщений: 16
		1
	Дан одномерный массив Zn. Все элементы с нечетными значениями заменить суммой элементов с четными номерами 22.12.2012, 23:34. Показов 1839. Ответов 1 Метки нет (Все метки) Дан одномерный массив Zn. Все элементы с нечетными значениями заменить суммой элементов с четными номерами. 0

Опции темы

Дан одномерный массив Zn. Все элементы с нечетными значениями заменить суммой элементов с четными номерами

Решение