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

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

16.11.2020, 22:58. Показов 730. Ответов 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
Модератор
10154 / 5491 / 3370
Регистрация: 17.08.2012
Сообщений: 16,784
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
Ответ Создать тему
Новые блоги и статьи
Обмен данными в микросервисной архитектуре
ArchitectMsa 06.04.2025
Когда разработчики начинают погружаться в мир микросервисов, они часто сталкиваются с парадоксальным правилом: "два сервиса не должны делить один источник данных". Эта мантра звучит повсюду в. . .
PostgreSQL в Kubernetes: Автоматизация обслуживания с CNPG
Mr. Docker 06.04.2025
Администраторы баз данных сталкиваются с целым рядом проблем при обслуживании PostgreSQL в Kubernetes: как обеспечить правильную репликацию данных, как настроить автоматическое переключение при. . .
Async/await в TypeScript
run.dev 06.04.2025
Асинхронное программирование — это подход к разработке программного обеспечения, при котором операции выполняются независимо друг от друга. В отличие от синхронного выполнения, где каждая последующая. . .
Многопоточность в C#: Синхронизация потоков
UnmanagedCoder 06.04.2025
Многопоточное программирование стало неотъемлемой частью разработки современных приложений на C#. С появлением многоядерных процессоров возможность выполнять несколько задач параллельно значительно. . .
TypeScript: Классы и конструкторы
run.dev 06.04.2025
TypeScript, как статически типизированный язык, построенный на основе JavaScript, привнес в веб-разработку новый уровень надежности и структурированности кода. Одним из важнейших элементов этой. . .
Многопоточное программирование: Rust против C++
golander 06.04.2025
C++ существует уже несколько десятилетий и его поддержка параллелизма постепенно наращивалась со временем. Начиная с C++11, язык получил стандартную библиотеку для работы с потоками, а в последующих. . .
std::vector в C++: от основ к оптимизации производительности
NullReferenced 05.04.2025
Для многих программистов знакомство с std::vector происходит на ранних этапах изучения языка, но между базовым пониманием и подлинным мастерством лежит огромная дистанция. Контейнер std::vector. . .
Реляционная модель и правила Кодда: фундамент современных баз данных
Codd 05.04.2025
Конец 1960-х — начало 1970-х годов был периодом глубоких трансформаций в области хранения и обработки данных. На фоне растущих потребностей бизнеса и правительственных структур существовавшие на тот. . .
Асинхронные операции в Django с Celery
py-thonny 05.04.2025
Разработчики Django часто сталкиваются с проблемой, когда пользователь нажимает кнопку отправки формы и. . . ждёт. Секунды растягиваются в минуты, терпение иссякает, а интерфейс приложения замирает. . . .
Использование кэшей CPU: Максимальная производительность в Go
golander 05.04.2025
Разработчикам хорошо известно, что эффективность кода зависит не только от алгоритмов и структур данных, но и от того, насколько удачно программа взаимодействует с железом. Среди множества факторов,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер