Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.81/21: Рейтинг темы: голосов - 21, средняя оценка - 4.81
0 / 0 / 0
Регистрация: 24.01.2016
Сообщений: 2

Заменить каждый элемент массива на сумму предыдущего и последующего элемента

28.01.2016, 20:30. Показов 4463. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан массив размера N. Заменить каждый элемент(кроме крайних) массива на сумму предыдущего и последующего элемента. Без вспомогательного массива.
Например:
исх массив:
5 4 3 9 2 1
рез:
5 8 13 5 10 1
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
28.01.2016, 20:30
Ответы с готовыми решениями:

Заменить в массиве каждый нулевой элемент полусуммой последующего и предыдущего
Составить программу с использованием базовых алгоритмов для работы с одномерными массивами Ввести с клавиатуры одномерный массив,...

Заменить в массиве каждый нулевой элемент полусуммой последующего и предыдущего
Ввести с клавиатуры список, состоящий из 10 элементов. Заменить в нем каждый нулевой элемент полусуммой последующего и предыдущего. Если...

Создать массив, где каждый элемент будет суммой из предыдущего и последующего элементов первого массива
Привет, помогите, пожалуйста. Тема такая: нужно сгенерировать 20 элемнтов массива из 4-хзначных чисел. Вывести элементы кратные 3. Создать...

2
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
28.01.2016, 21:12
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
var a:array[1..100] of integer;
    n,i,x,y,z:integer;
begin
randomize;
write('n=');
readln(n);
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
i:=2;
x:=a[1];
y:=a[2];
z:=a[3];
repeat
a[i]:=x+z;
x:=y;
y:=z;
i:=i+1;
z:=a[i+1];
until i=n;
writeln('Измененный массив');
for i:=1 to n do
write(a[i]:4);
end.
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,059
29.01.2016, 09:36
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Можно обойтись всего двумя вспомогательными переменными:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  a : array [1..6] of integer = (5,4,3,9,2,1);
 
begin
  WriteLn(a);
  var p := a[1];
  for var i := 2 to 5 do
    begin
      var pp := a[i];
      a[i] := p + a[i+1];
      p := pp;
    end;
  WriteLn(a);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
29.01.2016, 09:36
Помогаю со студенческими работами здесь

Вместо каждого отрицательного элемента поставить сумму квадратов предыдущего и последующего элементов массива
Помогите перевести из паскаля Дан одномерный массив числовых значений, насчитывающий N элементов. Вместо каждого отрицательного...

Считать строку из чисел, вывести на экран сумму предыдущего и последующего элемента
Считать строку из чисел, вывести на экран Сумму предыдущего и последующего (для первого элемента предыдущим является последний. Для...

Каждый элемент массива на единицу больше, чем квадратный корень из предыдущего, найти сумму всех элементов
Помогите с решением задачи на C#. Каждый элемент массива на единицу больше, чем квадратный корень из предыдущего. Первый = 1. Найти сумму...

Каждый элемент массива заменить остатком от деления элемента на 7
Задание: Ввести двумерный массив. Каждый элемент, стоящий в мас-сиве на позиции с четной суммой индексов заменить остатком от деления этого...

Заменить каждый неположительный элемент массива Х абсолютной величиной элемента массива Y с тем же индексом
Добрый день. Нужно решить задачку: Заменить каждый неположительный элемент массива Х абсолютной величиной имеющего тот же номер элемента...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru