![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
TOPEHTO |
![]()
Сообщение
#1
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 87 Пол: Мужской Репутация: ![]() ![]() ![]() |
Цитата var a: array of integer; n,i,j,b: integer; procedure input (a: array of integer); var i,n: integer; begin readln(n); for i:=1 to n do readln (a[i]); end; procedure swap(var a,b,c: integer); begin b:=c; c:=a; a:=b; end; begin input(a); for j:=1 to n-1 do for i:=1 to n-j do begin if a[i] < a[i+1] then swap(a[i+1], b, a[i]); end; writeln(a[n], ' - наименьшее'); writeln(a[1], ' - наибольшее'); end. Вылетает на 9 строке на вводе Форум читал, ссылки видел. Но не могу понять почему не работает, точно такая же процедура работала в другой программе. |
![]() ![]() |
![]() |
Текстовая версия | 1.07.2025 10:14 |