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

Вывести на экран номер наименьшего положительного числа

16.11.2020, 22:58. Показов 726. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Вывести на экран номер наименьшего положительного числа
Считать, что все элементы последовательности лежат в диапазоне -100...+100.
Вывести на экран номер наименьшего положительного числа.
Если таких чисел несколько -- вывести наибольший номер.
Если положительных чисел нет -- вывести об этом сообщение ("NO").
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
16.11.2020, 22:58
Ответы с готовыми решениями:

Номер наименьшего положительного числа
Задание: Ввести восемь чисел и определить наименьшее число среди положительных чисел и его номер Код: const n=8; var i:...

Найти номер наименьшего положительного числа в последовательности произвольных чисел, вводимых с клавиатуры
Помогите пожалуйста с задачей Pascal последовательности!:help: Найти номер наименьшего положительного числа в последовательности...

Вывести на экран номер первого положительного элемента массива
Ввести с клавиатуры массив А из N целых чисел. Вывести на экран номер первого положительного элемента массива. Если таких элементов нет, то...

1
Модератор
10153 / 5490 / 3370
Регистрация: 17.08.2012
Сообщений: 16,782
17.11.2020, 00:27
Pascal Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  n, m, im, x: integer;
begin
  readln(n);
  m := 101;
  im := 0;
  for n := 1 to n do
    begin
      read(x);
      if (x > 0) and (x <= m) then
        begin
          m := x;
          im := n
        end
    end;
  readln;
  if im > 0 then writeln(im) else writeln('NO');
  readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
17.11.2020, 00:27
Помогаю со студенческими работами здесь

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

Задача на массивы. Найти номер наименьшего положительного числа последовательности
Дано натуральное числоn(n\leq 100).И действительные числа{a}_{1},{a}_{2}...{a}_{n} Найти номер наименьшего положительного числа в заданной...

Задача на массивы. Найти номер наименьшего положительного числа последовательности
Дано натуральное число n(n\leq 100).И действительные числа{a}_{1},{a}_{2}...{a}_{n} Найти номер наименьшего положительного числа в...

Найти номер наименьшего положительного числа в заданной последовательности. Если в ней отсутствуют положительные числа, ответом должно быть -1
Условие: Дано натуральное число n (n &lt; 100) и действительные числа 1a, 2a, ..., na. Найти номер наименьшего положительного числа в...

На экран вывести номер наибольшего и наименьшего элемента массива
Задание. Инициализировать целочисленный массив из 10 псевдослучайных элементов. На экран вывести номер наибольшего и наименьшего элемента. ...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Контейнеризация React приложений с Docker
Reangularity 03.04.2025
Контейнеризация позволяет упаковать приложение со всеми его зависимостями в автономный контейнер, который можно запустить на любой платформе с установленным Docker. Это существенно упрощает процессы. . .
Свой попап в SwiftUI
mobDevWorks 03.04.2025
SwiftUI, как декларативный фреймворк от Apple, предоставляет множество инструментов для создания пользовательских интерфейсов. В нашем распоряжении есть такие API как alerts, popovers, action sheets. . .
Антипаттерны микросервисной архитектуры
ArchitectMsa 03.04.2025
Хорошо спроектированная микросервисная система может выдержать испытание временем, оставаясь гибкой, масштабируемой и устойчивой к большинству проблем. Такая архитектура обладает высоким уровнем. . .
std::mutex в C++: Советы и примеры использования
bytestream 03.04.2025
std::mutex - это механизм взаимного исключения, который гарантирует, что критический участок кода выполняется только одним потоком в каждый момент времени. Это простое, но могущественное средство. . .
Не удержался от оценки концепции двигателя Стирлинга.
Hrethgir 03.04.2025
Сколько не пытался - она выдавала правильные схемы, причём случайно рисовала горячие области в середине, холодные по краям, трубки с краёв в низ и магнит в соединяющей, но при этой выдавала описание. . .
Метод с двумя буферами (или double buffering) или ping-pong buffering
Hrethgir 02.04.2025
Из ответов LM модели. Метод, который предполагает использование двух массивов для хранения промежуточных результатов сложения векторов, обычно применяется в сценариях, где необходимо минимизировать. . .
На любовном киберфронте
Alexander-7 01.04.2025
Недавно на одном малоизвестном сайте знакомств мною заинтересовалась девушка: «Текст немного странный. Но, судя по адресу почты, иностранка», – подумал я. Поколебавшись пару суток, я ответил ей:. . .
Как работает Node.js изнутри
run.dev 29.03.2025
Node. js изменил подход к разработке веб-приложений, позволив использовать JavaScript не только на стороне клиента, но и на сервере. Созданный в 2009 году Райаном Далем, этот открытый,. . .
Моки в Python: Mock Object Library
py-thonny 29.03.2025
Тестирование кода требует особого подхода, когда речь идёт о компонентах, взаимодействующих с внешним миром. Мы часто сталкиваемся с непредсказуемостью HTTP-запросов, чтением данных из базы или. . .
JavaScript: Управление памятью и улучшение производительности
run.dev 29.03.2025
В отличие от низкоуровневых языков программирования, JavaScript не требует ручного выделения и освобождения памяти. Здесь работает автоматический сборщик мусора, который определяет, какие объекты. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер