|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.05.2012, 18:20 | #1 |
Форумчанин
Регистрация: 27.05.2012
Сообщений: 109
|
Тестирование и отладка программного продукта. исправить ошибки, чтобы программа работала.
1. Разработана программа определения максимального элемента массива и его номера
Program Primer1; Const N=10; Type Mas=array [1..n] of integer; Var I,nmax: integer; B: mas; Procedure Maxim (a:mas: var nm: integer); Var Max: integer; Begin Max:=a[1]; Nm:=1; For i:=1 to n If max<a[i] then max:=a[i]; nm:=i; End; Begin For i:=1 to n Readln(B[i]); Maxim(b,nmax); Write(nmax); End. |
27.05.2012, 18:22 | #2 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как сделать, чтобы программа работала сразу через 20 сайтов? | tima777 | Работа с сетью в Delphi | 4 | 13.08.2011 20:48 |
!!! Можно ли сделать так,чтобы программа в Delphi работала с самим компьютером?!!! | kotaina | Общие вопросы Delphi | 19 | 07.04.2011 13:40 |
Как сделать,чтобы программа работала при низком разрешение монитора? | RomanDemidov | Общие вопросы Delphi | 5 | 13.12.2010 19:10 |
Как чтобы программа работала на другом компьютере | Olaf | C++ Builder | 2 | 08.04.2010 12:09 |