Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.11.2010, 10:58   #1
Rondo
 
Регистрация: 29.11.2010
Сообщений: 7
По умолчанию работа с массивами(делфи 7)

1)поменять местами элементы массива c=(c1,c2,...cn),равностоящие от начала и конца массива.
2)Найти тройку последовательных элементов массива p=(p1,p2,...pn) с наименьшей суммой.
P.S. буду очень благодарен! можно программы полностью и чтоб решение выводило в командной строке!

Последний раз редактировалось Rondo; 29.11.2010 в 11:02.
Rondo вне форума Ответить с цитированием
Старый 29.11.2010, 13:04   #2
Z1000000
Форумчанин
 
Регистрация: 04.05.2010
Сообщений: 495
По умолчанию

Напиши хотя бы ввод и вывод массива.
Покажи что пытаешься делать.
Остальное помогу.

А если все полностью, то это небездвозмездно и на мыло.
Нажми на весы, поставь +
Для благодарностей : WebMoney WMR R252732729948
Z1000000 вне форума Ответить с цитированием
Старый 29.11.2010, 14:27   #3
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
поменять местами элементы массива c=(c1,c2,...cn),равностоящие от начала и конца массива.
Код:
for i:=1 to n div 2 do
begin
t:=c[i];
c[i]:=c[n-i+1];
c[n-i+1]:=t;
end;
Цитата:
Найти тройку последовательных элементов массива p=(p1,p2,...pn) с наименьшей суммой.
Код:
sum:=p[1]+p[2]+p[3]; k:=1;
for i:=2 to n-2 do
begin s:=0; 
for j:=i to i+2 do
s:=s+p[j];
if s<sum then begin sum:=s; k:=i;end;
end;
writeln(k,' ',k+1,' ',k+2);
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с массивами в делфи sanchosss Помощь студентам 1 24.11.2010 16:45
Работа с массивами МИТЯГИНА Паскаль, Turbo Pascal, PascalABC.NET 0 16.05.2010 16:24
Помогите с массивами в Делфи _Alise_ Помощь студентам 11 21.06.2008 22:17
Работа с массивами rexec Microsoft Office Excel 12 21.04.2008 13:29