|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
08.12.2008, 21:34 | #1 |
Пользователь
Регистрация: 08.12.2008
Сообщений: 30
|
обмен чисел последовательности
Ребята мне нужно в программе используя массив поменять его первые три и последние три элемента местами сохраняя их прохождение ...
Код:
|
08.12.2008, 22:28 | #2 |
Пользователь
Регистрация: 25.09.2008
Сообщений: 39
|
program mas;
uses crt; type v = array[1..20] of integer; var i,a1,a2,a3,b1,b2,b3:Integer; a:v; begin clrScr; For i:=1 to 20 do {выводим изначальный массив} begin a[i]:=-15+random(9); write ( a[i]); if i=1 then a1:=a[i]; if i=2 then a2:=a[i]; if i=3 then a3:=a[i]; if i=18 then b1:=a[i]; if i=19 then b2:=a[i]; if i=20 then b3:=a[i]; { writeln;} end; writeln(' '); {новая строка} For i:=1 to 20 do //массив с поменянными первыми begin //и последними элементами if i=1 then begin a[i]:=b1; write ( a[i]); end else if i=2 then begin a[i]:=b2; write ( a[i]); end else if i=3 then begin a[i]:=b3 ; write ( a[i]); end else if i=18 then begin a[i]:=a1; write ( a[i]) end else if i=19 then begin a[i]:=a2; write ( a[i]); end else if i=20 then begin a[i]:=a3; write ( a[i]); end else write ( a[i]); end; readkey; end. грубо, но работает (если с условием я все так понял.)
P.S. Не забудь жамкнуть на весы.
Хотя и сладостен азарт по сразу двум идти дорогам, нельзя одной колодой карт играть и с дьяволом и с богом. |
09.12.2008, 00:15 | #3 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
Способ попроще:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Генерация последовательности псевдослучайных натуральных чисел с требуемым распределением вероятности | elsin | Фриланс | 4 | 19.11.2008 08:57 |
Ввод последовательности чисел | POPOV | Общие вопросы Delphi | 5 | 16.02.2008 22:13 |
Как из последовательности чисел выделить недостающие | Юрій | Microsoft Office Excel | 2 | 27.01.2008 21:46 |
вычисление суммы чисел, кратных 3 из последовательности, состоящей из 10 чисел, заранее заданных | Белка | Помощь студентам | 3 | 27.10.2007 11:53 |