Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
3 / 3 / 1
Регистрация: 02.03.2010
Сообщений: 75

наименьший

22.04.2010, 17:15. Показов 2588. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дана непустая последовательность различных натуральных чисел, за которой следует ноль. Определить порядковый номер наименьшего из них.
пожалуйста сделайте всю...очень прошу
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
22.04.2010, 17:15
Ответы с готовыми решениями:

В массиве наименьший элемент поместить на первое место, наименьший из оставшихся на последнее
Колокол. В массиве A(n) наименьший элемент поместить на первое место, наименьший из оставшихся на последние место, следующий по величине -...

Найти наименьший член последовательности, наименьший из положительных членов, наибольшее из попарных произведений
В таблицу занесена последовательность из 10 чисел, взятых в проме- жутке от –5 до 5. Найти: а) наименьший член последовательности; ...

Найти наименьший элемент матрицы и от элементов всех столбцов, за исключением первого, вычесть наименьший
Двумерные массивы. Ввести матрицу А размером m*n, найти наименьший элемент и от элементов всех столбцов, за исключением первого, вычесть...

2
 Аватар для STGE
777 / 582 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
22.04.2010, 17:41
Лучший ответ Сообщение было отмечено gorgutz1234 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
 var a,i,min,l: byte;
 begin
  clrscr;
  write('введите значение 1-ого элемента: ');
  read(min);
  i:=2;
  while a<>0 do
   begin
    write(i,'-й элемент: ');
    read(a);
    if a<min then 
    begin
     l:=i;
     min:=a;
    end;
   end; 
  writeln('наименьший элемент последовательности имеет порядковый № = ',l);
 end.
0
3 / 3 / 1
Регистрация: 02.03.2010
Сообщений: 75
26.04.2010, 09:58  [ТС]
Цитата Сообщение от STGE Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
 var a,i,min,l: byte;
 begin
  clrscr;
  write('введите значение 1-ого элемента: ');
  read(min);
  i:=2;
  while a<>0 do
   begin
    write(i,'-й элемент: ');
    read(a);
    if a<min then 
    begin
     l:=i;
     min:=a;
    end;
   end; 
  writeln('наименьший элемент последовательности имеет порядковый № = ',l);
 end.
программа не работает,тем более у меня так же только с repeat.ПОМОГИТЕ ПЛЗ!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
26.04.2010, 09:58
Помогаю со студенческими работами здесь

Найти наименьший отрицательный элемент выше побочной диагонали и наименьший положительный элемент ниже побочной диагонали
3)Дан двухмерный массив.Найти наименьший отрицательный элемент выше побочной диагонали и наименьший положительный элемент ниже побочной...

Найти наименьший элемент выше главной диагонали матрицы и наименьший элемент ниже главной диагонали
дан двумерный массив.Найти наименьший элемент выше главной диагонали и наименьший элемент ниже главной диагонали с указанием их...

наименьший элемент
дан вектор n=50 найти наименьший элемент массива,а затем вычислить из каждого элемента массива это число const n= 50; var a:array of...

Наименьший по модулю элемент
Сделать программу алгоритма вложенных циклов с использованием двумерных массивов. Дана квадратная матрица D порядка n. Найти наименьший...

Наименьший общий знаменатель
Для сложения трех обыкновенных дробей со знаменателями a, b и с(1&lt;a,b&lt;c&lt;=1200)необходимо найти наименьший общий знаменатель, который может...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определенном условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru