Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Денис11
0 / 0 / 0
Регистрация: 03.07.2013
Сообщений: 5
#1

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

03.07.2013, 13:06. Просмотров 495. Ответов 1
Метки нет (Все метки)

52. Дан одномерный массив А длиной М. Определить минимальный положительный элемент.
http://www.cyberforum.ru/delphi-beginners/thread1083027.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.07.2013, 13:06
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дан одномерный массив А длиной М. Определить минимальный положительный элемент. (Delphi):

Дан одномерный массив А длиной N. Подсчитать количество максимальных элементов массива.
как это сделать??))

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

Дан одномерный массив размерности 20. Заполнить его случайными числами на отрезке [-25,25]. Если элемент массива четный
может знаете как будет? Дан одномерный массив размерности 20. Заполнить его...

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

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

1
Puporev
Модератор
54131 / 41764 / 28875
Регистрация: 18.05.2008
Сообщений: 98,291
03.07.2013, 15:47 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm1.Button1Click(Sender: TObject);
var a:array of integer;
    m,i,mn:integer;
begin
randomize;
m:=strtoint(Edit1.Text);
setlength(a,m);
stringgrid1.RowCount:=1;
stringgrid1.ColCount:=m;
mn:=-1;
for i:=0 to m-1 do
 begin
  a[i]:=-5+random(11);
  if a[i]>0 then mn:=a[i];
  stringgrid1.Cells[i,0]:=inttostr(a[i])
 end;
if mn=-1 then Edit2.Text:='Нет положительных элементов'
else
 begin
  for i:=0 to m-1 do
  if(a[i]>0)and(a[i]<mn) then mn:=a[i];
  Edit2.Text:='Минимальный из положительных='+inttostr(mn);
 end;
 
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.07.2013, 15:47
Привет! Вот еще темы с решениями:

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

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

Дан одномерный целочисленный массив из n элементов. Определить и распечатать все локальные экстремумы в нём
Дан одномерный целочисленный массив из n элементов. Определить и распечатать...

Определить минимальный элемент массива. Сформировать массив А по формуле
Помогите с заданием:&quot;Определить минимальный элемент массива. Сформировать...


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

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

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