Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 27.05.2012, 18:20   #1
Proskurina
Форумчанин
 
Регистрация: 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.
Proskurina вне форума Ответить с цитированием
Старый 27.05.2012, 18:22   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
Procedure Maxim (a:mas; var nm: integer);
Var
Max: integer;
Begin
Nm:=1;
For i:=1 to n
If a[nm]<a[i] then nm:=i;
End;
Mad_Cat вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как сделать, чтобы программа работала сразу через 20 сайтов? tima777 Работа с сетью в Delphi 4 13.08.2011 20:48
!!! Можно ли сделать так,чтобы программа в Delphi работала с самим компьютером?!!! kotaina Общие вопросы Delphi 19 07.04.2011 13:40
Как сделать,чтобы программа работала при низком разрешение монитора? RomanDemidov Общие вопросы Delphi 5 13.12.2010 20:10
Как чтобы программа работала на другом компьютере Olaf C++ Builder 2 08.04.2010 12:09


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS