Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 13.02.2014
Сообщений: 31

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

25.02.2014, 21:45. Показов 1409. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
К каждому элементу одномерного массива, имеющей четный номер, добавить элемент, который стоит перед ним.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
25.02.2014, 21:45
Ответы с готовыми решениями:

К каждому элементу одномерного массива, имеющей четный номер, добавить элемент, который стоит перед ним.
К каждому элементу одномерного массива, имеющей четный номер, добавить элемент, который стоит перед ним.

К каждому элементу одномерного массива, имеющей четный номер, добавить элемент, который стоит перед ним
К каждому элементу одномерного массива, имеющей четный номер, добавить элемент, который стоит перед ним.

Массив: К каждому элементу массива добавить его наибольший элемент
Задано масив X(n) Перетворити заданий масив у наступний спосіб:до кожного елемента масиву додати його найбільший елемент Задано...

1
 Аватар для L_e_g_i_o_n
100 / 100 / 86
Регистрация: 20.10.2013
Сообщений: 186
25.02.2014, 22:05
Лучший ответ Сообщение было отмечено Mandarink-a как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const nmax=100;
var a:array[1..nmax] of integer;
    n,i:integer;
begin
randomize;
repeat
write('Ðàçìåð ìàññèâà n = ');
read(n);
until n in [2..nmax];
writeln('Èñõîäíûé ìàñññèâ: ');
for i:=1 to n do
begin
     a[i]:=random(10);
     write(a[i]:4);
end;
writeln;
writeln('ïðåîáðàçîâàííûé ìàñññèâ: ');
for i:=1 to n do
begin
     if not(odd(i))then a[i]:=a[i]+a[i-1];
     write(a[i]:4);
end;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
25.02.2014, 22:05
Помогаю со студенческими работами здесь

Задача Таблица. За одно обращение к каждому элементу массива необходимо каждый элемент заменить ближайшим большим следующим за ним
Не могу решить задачу( В массиве А размера n за одно обращение к каждому элементу массива необходимо каждый элемент заменить ближайшим ...

Найти наибольший элемент из элементов одномерного массива, имеющих четный номер
НАйти наибольший элемент из элементов одномерного массива, имеющих четный номер. Определить, является ли он единственным.

Найти наибольший элемент из элементов одномерного массива, имеющих чётный номер
1) Дана матрица А 5,5, содержащая некоторые целые числа. составить одномерный массив S, в котором будут содержаться значения суммы...

Найти наибольший элемент из элементов одномерного массива, имеющих четный номер. Определить, является ли он единственным
Найти наибольший элемент из элементов одномерного массива, имеющих четный номер. Определить, является ли он единственным.

Напечатать минимальный элемент столбца матрицы А, номер которого равен максимальному элементу одномерного массива В
Заданы матрица А и одномерный массив В , заполненных случайным образом. Составить программу печати минимального элемента столбца матрицы...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Символьное дифференцирование
igorrr37 13.02.2026
/ * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru