![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Rudolf |
![]()
Сообщение
#1
|
Гость ![]() |
"Дана последовательность различных натуральных чисел, за которой следует 0. Определить порядковый номер наименьшего из них". У меня программа работает правильно если элементы идут от меньшего к большему, но если от большего к меньшему, то К присваивается неправильное значение.
Код Program Lab4; Var x, i, min, k : Integer; {x-элемент последовательности, i-номер элемента, min- элемент с минимальным значением, k-номер элемента с минимальным значением} Begin i:=1; Writeln ('Введите ',i,' элемент последовательности'); Readln(x); k:=1; min:=x; While x<>0 Do Begin Inc(i); Writeln ('Введите ',i,' элемент последовательности'); Readln(x); If x<min Then Begin min:=x; k:=i End; End; Writeln('Номер минимального элемента - ', k); Readln End. |
![]() ![]() |
![]() |
Текстовая версия | 22.06.2025 1:07 |