С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
19 / 10 / 10
Регистрация: 21.01.2014
Сообщений: 88

Из данного массива создать второй так, чтобы в нем вся информация была продублирована

19.03.2014, 18:44. Показов 1606. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Из данного массива создать второй так, чтобы в нем вся информация была продублирована: два раза подряд записан первый элемент, потом два раза второй и т.п
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
19.03.2014, 18:44
Ответы с готовыми решениями:

Как сделать в отчете в виде подчиненной форме чтобы была не вся информация, а была лишь из формы?
Здравствуйте, как сделать чтобы в отчете было тоже самое, что и в форме, без других записей, а только, то что появляется на форме.И также с...

Сделать так, чтобы одна форма была производной от второй
Возможно ли в проекте сделать так, чтобы одна форма была производной от второй, но создавалась так, как ее спроектировали в дизайнере форм...

взять фотографию и сделать так чтобы ровно половина была оригиналом, а на второй половине красные цвета стали синими
задание такое: взять фотографию и сделать так чтобы ровно половина была оригиналом, а на второй половине красные цвета стали синими, синие...

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

Решение

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
uses crt;
const nmax=100;
var a,b:array[1..nmax] of integer;
    n,i:byte;
begin
randomize;
repeat
write('Размер массива А от 2 до ',nmax,' n=');
read(n);
until n in [2..nmax];
writeln('Массив A');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4)
 end;
writeln;
for i:=1 to 2*n do
 begin
  if odd(i) then b[i]:=a[i div 2+1]
  else b[i]:=a[i div 2];
  write(b[i]:4)
 end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
19.03.2014, 19:13
Помогаю со студенческими работами здесь

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

Как перепрошить биос, чтобы в Win7 64 была доступна вся ОЗУ?
Привет всем! Меня сюда направили из этой темы: https://www.cyberforum.ru/windows7/thread2166451.html Проблема в том, что в виндовс 7 64...

Удалить из массива некоторые элементы так, чтобы сумма оставшихся была кратна 600
решаю олимп. задачу, вообщем самое сложное в задаче был ввод данных, но вот я запоролся в другом месте... вообщем у меня получился массив...

Распределить числа в два массива так, чтобы разность между их суммами была минимальной
Задача: дан массив N чисел. Нужно раскидать эти числа в два массива так, чтобы разность между их суммами была минимальной. Пример: 100 1...

Безопастно ли, чтобы вся информация на сайте генерилась из БД в html-файлы?
Безопастно ли, чтобы вся информация на сайте генерилась из БД в html-файлы (при помощи FSO), ведь тогда для каждой папки, где лежат...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru