![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 11.10.2008
Сообщений: 2
|
![]()
program PAMax;
{$APPTYPE CONSOLE} uses SysUtils; Type Mas = array[1..50] of double; Function MAX(const Data: mas): double; Var i: integer; AMax: double; begin AMax:=Data[1]; for i:=2 to 50 do if Data[i] > AMax then AMax:=Data[i]; Result:=AMax; end; end. появляется досовское окно и сразу закрывается((( |
![]() |
![]() |
![]() |
#2 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
![]()
Допиши ReadLn; перед последним end.
И вообще ты в программе только описал функцию, но в теле ничего не выполняется.
ICQ: 5311314
[SIGPIC][/SIGPIC] |
![]() |
![]() |
![]() |
#3 |
Регистрация: 11.10.2008
Сообщений: 2
|
![]()
AVer, ты можешь остальное напечатать, как должно быть, а то че-то у меня ничего не выходит.
|
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 01.03.2008
Сообщений: 165
|
![]()
ну например во так
Код:
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ПОМОГИТЕ! ОЧЕНЬ ВАЖНО! Задача на использование рекурсии | stscolt | Помощь студентам | 1 | 21.04.2008 22:37 |
ОЧЕНЬ ВАЖНО, ПОМОГИТЕ | VVVadim | Помощь студентам | 2 | 28.03.2007 17:32 |