Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Alex911
8 / 8 / 4
Регистрация: 29.04.2010
Сообщений: 82
#1

Определить порядковый номер наименьшего из них. использовать оператор цикла с постусловием - Turbo Pascal

10.06.2010, 22:12. Просмотров 892. Ответов 2
Метки нет (Все метки)

дана непустая последовательность различных натуральных чисел, за которой следует ноль. Определить порядковый номер наименьшего из них. использовать оператор цикла с постусловием
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2010, 22:12
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить порядковый номер наименьшего из них. использовать оператор цикла с постусловием (Turbo Pascal):

Определить порядковый номер наименьшего из них
Дана непустая последовательность различных чисел. Определить порядковый номер...

Даны 4 числа. Определить порядковый номер наименьшего среди них
Данны 4 числа Определить порядковый номер наименшого среди них! Надо...

Определить порядковый номер наименьшего из чисел последовательности
1. Дана непустая последовательность различных натуральных чисел, за которой...

Последовательность чисел. Определить порядковый номер наименьшего.
Доброго времени суток... Помогите решить задачу по Turbo Pascal... За ранние...

Оператор цикла с постусловием
Дорогие программисты, помогите пожалуйста решить задачу Вывести значение...

Используя оператор цикла с постусловием вычислить сумму ряда sum=(2a+i/i)
Используя оператор цикла с постусловием вычислить сумму ряда sum=(2a+i/i) при...

2
Puporev
Модератор
54136 / 41769 / 28877
Регистрация: 18.05.2008
Сообщений: 98,307
10.06.2010, 22:19 #2
Лучший ответ Сообщение было отмечено Alex911 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var a,mn,i,imn:integer;
begin
clrscr;
writeln('Введите не менее двух натуральных чисел, окончание вода 0:');
repeat
readln(mn);
until mn>0;
i:=1;
imn:=1;
repeat
 repeat
 readln(a);
 until a>=0;
 i:=i+1;
 if (a<mn)and(a>0) then imn:=i;
until a=0;
writeln('Номер минимального=',imn);
readln
end.
0
Alex911
8 / 8 / 4
Регистрация: 29.04.2010
Сообщений: 82
10.06.2010, 22:51  [ТС] #3
спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2010, 22:51
Привет! Вот еще темы с решениями:

Вводится номер месяца. Определить время года, которому соответствует этот месяц. (Использовать оператор Case)
Вводится номер месяца. Определить время года, которому соответствует этот...

Дано 10 вещественных чисел. Найти порядковый номер того из них, которое наиболее близко к целому
Дано 10 вещественных чисел. Найти порядковый номер того из них, которое...

Дано предложение в котором есть несколько букв е, Найти порядковый номер первой и последней из них
Помогите решить Дано предложение в котором есть несколько букв е, Найти...

Найти порядковый номер того из них, которое наиболее близко к какому-нибудь целому числу
помогите пожалуйста на завтра надо Программа, Дано 80 вещественных чисел....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru