Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Динамическое размещение картинок http://www.cyberforum.ru/delphi-beginners/thread1947106.html
Как сделать динамическое размещение картинок по форме как в paint ? Взять нужную картину и разместить её на форме P.s. рисую на image
Delphi клиент-сервер ЭУ или как Предисловие Привет, задание на дипломку в шараге простое. Написать Электронное учебное пособие. Из особых требований было только возможность добавлять материал, тест, и учетные записи. Вообщем... http://www.cyberforum.ru/delphi-beginners/thread1947044.html
Ошибка: Floating point division by zero Delphi
Доброй ночи! У меня одна проблема. Делфи мне пишет floating point division by zero при интегрировании методом трапеции. program Project1; function fA(x: real; j,k:integer) : real; begin ...
Delphi Задача (A+B)-(C+D)
Доброго времени суток! Помогите с такой задачей: в оконном приложении должно вводиться значение 4 переменных (A, B, C, D), и при нажатии кнопки должно выводить результат, высчитан по формуле...
Delphi Разработать программу для вывода изображения на экран квадрата,прямоугольника,круга,эллипса http://www.cyberforum.ru/delphi-beginners/thread1946873.html
Разработать программу для вывода изображения на экран квадрата,прямоугольника,круга,эллипса ,которые начинают вращаться вокруг своей оси поочередно при нажатии кнопки. Помогите пожалуйста!
Delphi Инкапсуляция Требуется произвести проверку данных в Edit1 Edit2 Edit3 Выбивает ошибку некорректных данных unit Unit1; interface подробнее
phoenix-sof
0 / 0 / 2
Регистрация: 10.07.2016
Сообщений: 12
27.03.2017, 14:47 0

Найти минимальный положительный элемент из данных десяти элементов

27.03.2017, 14:47. Просмотров 894. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено lidiia_18 как решение

Решение

Как-то так
Delphi
1
2
3
4
5
6
7
8
9
10
var
  i, min: integer;
  arr: array [0..9] of integer;
begin
  min := 10000; //Какое нибудь большое число
  for i := 0 to 9 do
    if (arr[i] < min) and (arr[i] > 0) then
      min := arr[i];
  if min = 10000 then min := 0;
end;


Вернуться к обсуждению:
Найти минимальный положительный элемент из данных десяти элементов
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.03.2017, 14:47

Заменить минимальный по модулю положительный элемент массива последним элементом
1. Заменить минимальный по модулю положительный элемент массива последним...

Найти минимальный элемент среди элементов, лежащих на главной диагонали.
Дана матрица J(3, 3). Найти минимальный элемент среди элементов, лежащих на...

Массивы данных: найти максимальный и минимальный по модулю элемент, используя ListBox и ComboBox
Привет всем! Помогите пожалуйста с задачей!!! Ввести ряд чисел и найти...

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