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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 17.12.2010, 18:46   #1
Хутор
Новичок
Джуниор
 
Регистрация: 17.12.2010
Сообщений: 5
По умолчанию Даны натуральное число n, действительные числа a1,...,an. Получить:

Даны натуральное число n, действительные числа a1,...,an. Получить:
max (|a1|,...,|an|);
Привет, помогите пожалуйста. Зарание благодарен
Хутор вне форума Ответить с цитированием
Старый 17.12.2010, 19:05   #2
andrewpalkin
Форумчанин
 
Аватар для andrewpalkin
 
Регистрация: 23.11.2010
Сообщений: 458
По умолчанию

Помоги нам , помочь тебе

Напиши код , который ты написал и что именно не работает в нем ?
--- Если я вам помог , то помогите и вы мне . Не просто просите решить задачу , а пробуйте ее сами решить ! Я не пишу программы с нуля , я помогаю поправить код ! ---
andrewpalkin вне форума Ответить с цитированием
Старый 17.12.2010, 19:29   #3
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
k:=1;
for i:=2 to n do
if abs(a[i])>abs(a[k]) then k:=i;
writeln(a[k]);
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 17.12.2010, 19:32   #4
unbanned
Форумчанин
 
Аватар для unbanned
 
Регистрация: 23.11.2010
Сообщений: 530
По умолчанию

http://forum.vingrad.ru/faq/topic-201072.html - вот примеры
модуль в паскале abs();
например модуль а1 будет abs(a[1])
решай))) ничего сложного
unbanned вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны действительные числа а0 ,..., а6 . Получить для х=1,3,4 значения p(x+1)-p(x), где p(y) = a6 y6 + a5 LiptonICE Помощь студентам 4 08.06.2010 15:17
Даны действительные числа а0 ,..., а6 . Получить для х=1,3,4 значения p(x+1)-p(x), где LiptonICE Помощь студентам 6 29.05.2010 23:27
Даны действительные числа a, h, натуральное число n Масим Помощь студентам 0 24.03.2010 14:28
Даны натуральное число n и целые числа al, a2,..., an. Артём1992 Фриланс 7 18.03.2010 11:36
Даны действительные числа а1,...,а24. Получить последовательность в1,...,в10, где Наталья111 Фриланс 7 23.12.2008 11:40