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

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

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

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

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

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

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

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

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

2
Puporev
Модератор
54733 / 42134 / 29092
Регистрация: 18.05.2008
Сообщений: 99,454
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

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

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

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


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

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

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