Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Проверьте, является ли прямоугольная матрица A(nxn) "магическим квадратом" https://www.cyberforum.ru/ turbo-pascal/ thread2733065.html
Проверьте, является ли прямоугольная матрица A(nxn) "магическим квадратом" (это значит, что суммы чисел во всех ее вертикалях всех горизонталях и двух диагоналях одинаковы). 		Turbo Pascal По прямоугольной вещественной матрице А размерности nxm построить вектор В размерности n
По прямоугольной вещественной матрице А размерности nxm построить вектор В размерности n. i - й элемент вектора В будет иметь значение 0, если наибольший элемент в строке с номером i матрицы не больше заданного значения х и значение -1 в противном случае.
Turbo Pascal Графика 3. Круги/эллипсы Вывести на экран приведенную картинку. Радиусы окружностей должны отличаться от соседних на одинаковое значение. Верхние границы окружностей касаются общей горизонтальной прямой. Левые границы окружностей касаются общей вертикальной прямой. Количество окружностей -- 10-20. https://www.cyberforum.ru/ turbo-pascal/ thread2732974.html Turbo Pascal рисование на паскаль Вывести на экран приведенную картинку. Вертикальный размер эллипсов должен отличаться от соседей на одинаковую значение. Внешняя фигура должна быть круглой. Количество эллипсов -- 10-20. https://www.cyberforum.ru/ turbo-pascal/ thread2732972.html
Turbo Pascal Графика 3. Круги/эллипсы
Вывести на экран приведенную картинку. Вертикальный размер эллипсов должен отличаться от соседей на одинаковую значение. Внешняя фигура должна быть круглой. Количество эллипсов -- 10-20. 		Turbo Pascal Графика 3. Круги/эллипсы Вывести на экран приведенную картинку. Центры окружностей должны совпадать. Расстояние между границами соседних окружностей должно быть одинаковым. Количество окружностей -- 10-20. https://www.cyberforum.ru/ turbo-pascal/ thread2732964.html
Turbo Pascal Рисование на паскаль https://www.cyberforum.ru/ turbo-pascal/ thread2732963.html
Вывести на экран приведенную картинку. Центры окружностей должны совпадать. Расстояние между границами соседних окружностей должно быть одинаковым. Количество окружностей -- 10-20 		Turbo Pascal Переставить минимальный и предпоследний элементы массива
Организовать заполнение целочисленного одномерного массива D. Переставить минимальный элемент массива (при условии, что такой элемент единственный) и предпоследний элемент массива. Вывести на экран минимальный элемент массива, а также сам массив D до и после изменения. Предусмотреть исключительные ситуации, а именно: если исходный массив будет содержать несколько минимальных элементов, то...
Turbo Pascal Сгенерировать пароль для пользователя Требования: длина от 6 до 20 символов, должен быть ровно один символ подчеркивания, хотя бы две заглавных буквы, не более 5 цифр, любые две цифры подряд недопустимы. Сделать с описанием. https://www.cyberforum.ru/ turbo-pascal/ thread2732744.html Turbo Pascal Зашифровать каждую цифру числа серией из букв Пользователь вводит положительное целое число. Зашифровать каждую цифру серией из букв (конкретный принцип составления серии букв разработать самостоятельно и подробно описать). Сделать с описанием. https://www.cyberforum.ru/ turbo-pascal/ thread2732740.html
Пользователь вводит английскую букву, вывести следующие три по алфавиту Turbo Pascal
Пользователь вводит английскую букву, вывести следующие три по алфавиту. Если алфавит закончился, то вывести циклично с начала алфавита, то есть, если z, то a b c. Вывод только строчных букв. Учесть, что пользователь может ввести заглавную букву. Сделать с описанием. 		Turbo Pascal Рисование на паскаль Вывести на экран приведенную картинку. Количество пар прямых -- 10-21. https://www.cyberforum.ru/ turbo-pascal/ thread2732720.html
Модератор
10023 / 5371 / 3345
Регистрация: 17.08.2012
Сообщений: 16,364
17.11.2020, 00:27 0

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

17.11.2020, 00:27. Показов 656. Ответов 1
Метки (Все метки)

Ответ

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.


Вернуться к обсуждению:
Вывести на экран номер наименьшего положительного числа Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 17.11.2020, 00:27
Готовые ответы и решения:

Номер наименьшего положительного числа
Задание: Ввести восемь чисел и определить наименьшее число среди положительных чисел и его номер ...

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

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

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

1
17.11.2020, 00:27
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 17.11.2020, 00:27
Помогаю со студенческими работами здесь

Задача на массивы. Найти номер наименьшего положительного числа последовательности
Дано натуральное число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 псевдослучайных элементов. На экран вывести...

Найти номер строки наименьшего положительного элемента матрицы
Найти номер строки наименьшего положительного элемента. Вот мой код void __fastcall...

Даны три числа, необходимо вывести порядковый номер наименьшего
Помогите сделать задание в делфи 7: Даны три числа, необходимо вывести порядковый номер...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru