Составить программу для нахождения минимального элемента массива

@MaxxxyS · Регистрация: 17.06.2014

Author24 — интернет-сервис помощи студентам

Просьба помочь составить программу для нахождения минимального элемента массива в Дэлфи!!!

magirus · 17.06.2014, 19:38

кнопка "поиск" - справа вверху.

@саша40 · 17.06.2014, 21:27

Держи:

Delphi

var
X: array of Integer;
min,a: integer;
begin
writeln('Введите размер массива);
readln(а);
SetLength(x,a);
for a:=Low(X) To High(X) Do
begin
writeln('введите число');
readln(x[a]);
end;
writeln('массив введен');
min:=X[Low(x)];
for a:=Low(X) To High(X) Do
if x[a]<min then min:=x[a];
writeln('Минимальный элемент в массиве:' + IntToStr(min));
end.

@MaxxxyS · 18.06.2014, 20:32 **[ТС]**

Спасибо большое!)

@MaxxxyS 0 / 0 / 0 Регистрация: 17.06.2014 Сообщений: 17
		1
	Составить программу для нахождения минимального элемента массива 17.06.2014, 19:20. Показов 817. Ответов 3 Метки нет (Все метки) Просьба помочь составить программу для нахождения минимального элемента массива в Дэлфи!!! 0

magirus Почетный модератор 28046 / 15779 / 983 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	17.06.2014, 19:38	2
	кнопка "поиск" - справа вверху. 0

@MaxxxyS 0 / 0 / 0 Регистрация: 17.06.2014 Сообщений: 17
	18.06.2014, 20:32 [ТС]	4
	Спасибо большое!) 0