|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.01.2012, 16:07 | #1 |
Регистрация: 09.01.2012
Сообщений: 3
|
Программа на языке паскаль
В массиве из 10 элементов найти числа, меньшие чем максимальное из четных.
|
09.01.2012, 16:17 | #2 |
Software Developer
Участник клуба
Регистрация: 01.03.2011
Сообщений: 1,098
|
И в чем проблема?
Болтовня ничего не стоит. Покажите мне код. (c) Linus Torvalds
Помог ответ? -- Поставьте отзыв. Выражения особой благодарности в рублевом эквиваленте отправлять сюда --> R269634919062 |
09.01.2012, 17:29 | #3 |
Регистрация: 09.01.2012
Сообщений: 3
|
я новичок в паскаль. запутался как решать.
|
09.01.2012, 17:38 | #4 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
Дык вы покажите ваш код, расскажите, что не получается и т.д.
Если кто-то просто решит за вас вряд ли это вам поможет стать "не новичком".
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
09.01.2012, 18:09 | #5 |
Форумчанин
Регистрация: 20.10.2010
Сообщений: 143
|
Если самостоятельно не решите, напишите в Icq, решу вам задачу и объясню принцип решения
451 -870-7(три)6. Выполняю работы на заказ, гарант честности - ВМ аттестат с 60+ БЛ без претензий
|
12.01.2012, 19:53 | #6 |
Регистрация: 20.10.2011
Сообщений: 5
|
Задание со еще в силе?
|
12.01.2012, 19:56 | #7 |
Регистрация: 09.01.2012
Сообщений: 3
|
Да еще в силе.
Xeonc,прошу ответить в асе. |
12.01.2012, 20:34 | #8 |
Пользователь
Регистрация: 11.01.2012
Сообщений: 51
|
По идеи можно так
Program pr15; const m = 20; var arr: array[1..m] of byte; max_num, max_index: byte; i: byte; begin randomize; for i := 1 to m do begin begin arr[i] := random(100); writeln(arr[i]-1); end; end; max_index := 1; max_num := arr[1]; for i := 2 to m do if arr[i] > max_num then begin max_index := i; max_num := arr[i]; end; if max_num mod 2=0 then writeln ('Max = ',max_num) else begin max_num:=max_num-1; writeln ('Max = ',max_num); end; end.
Я учусь на своих ошибках, но порой их слишком много
|
13.01.2012, 14:18 | #9 |
Регистрация: 20.10.2011
Сообщений: 5
|
я вам написал программу, могу скинуть исходник и объяснить не ясные вам моменты, обращайтесь anydevelop@yandex.ru.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
SOS!!!!(на каком языке программа?)Нужно переделать программу,а я даже не знаю на каком она языке:eek::eek:,РЕБЯТА ПОМОГИ | Нака | Помощь студентам | 10 | 19.11.2011 15:16 |
Программа гороскоп на языке Паскаль | Машинист ЭД9мк | Помощь студентам | 5 | 05.11.2009 17:30 |
Помогите у кого есть желание. Программа на языке Турбо Паскаль. | Proper-life | Фриланс | 18 | 31.07.2009 16:28 |
Программа на русском языке в Windows XP на другом языке... Как? | 29bit | Свободное общение | 4 | 01.02.2008 17:24 |