Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
lidiia_18
0 / 0 / 0
Регистрация: 13.04.2016
Сообщений: 24
#1

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

27.03.2017, 12:52. Просмотров 223. Ответов 1
Метки нет (Все метки)

Delphi. Одномерный массив. Найти минимальный положительный из данных десяти элементов. Если требуемые элементы отсутствуют, то 0.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.03.2017, 12:52
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти минимальный положительный элемент из данных десяти элементов (Delphi):

В двумерном массиве найти минимальный положительный и максимальный отрицательный из данных десяти элементов - Delphi
Как в двумерном массиве найти минимальный положительный и максимальный отрицательный из данных десяти элементов. Если требуемые элементы...

Найти минимальный положительный элемент в главной диагонали матрицы - Delphi
помогите пожалуйста,оочень надо Найти минимальный положительный элемент в главной диагонали матрицы. Сформировать вектор из элементов...

В каждом столбце матрицы [nxn] найти положительный минимальный элемент и поместить его на соответствующее место главной диагонали - Delphi
В каждом столбце матрицы найти положительный минимальный элемент и поместить его на соответствующее место главной диагонали Нужно...

Заменить минимальный по модулю положительный элемент массива нулем - Delphi
1. Дан Массив целых чисел из n элементов, заполненный случайным образом числами из промежутка . 1. Заменить минимальный по модулю...

Дан одномерный массив А длиной М. Определить минимальный положительный элемент. - Delphi
52. Дан одномерный массив А длиной М. Определить минимальный положительный элемент.

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

1
phoenix-sof
0 / 0 / 0
Регистрация: 10.07.2016
Сообщений: 12
27.03.2017, 14:47 #2
Как-то так
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
Привет! Вот еще темы с ответами:

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

Найти минимальный элемент в столбце матрицы, где сумма элементов максимальна - Delphi
Дана квадратная матрица !требуется найти минимальный элемент в столбце,где сумма элементов максимальна.как это можно сделать??? ...

Найти минимальный элемент матрицы и сумму элементов под главной диагональю - Delphi
Дана матрица NxN. Найти минимальный элемент матрицы. Найти сумму элементов что находятся под главной диагональю. Использовать компоненты...

Дан массив A размера N. Найти минимальный элемент из его элементов с четными номерами: A2, A4, A6, ... - Delphi
Дан массив A размера N. Найти минимальный элемент из его элементов с четными номерами: A2, A4, A6, ... массив вывел, как дальше...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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