Вопрос Почему программа выдает не самое минимальное значение массива?

[новопокровка]

херовая прога

 

[XyJIuK]

Перед поиском максимального/минимального присваивай минимуму/максимуму не значение отбалды, а значение первого элемента уже введённого/сгенерированного массива. Плюс не if mas[1] а if mas

 

[equ1k]

УНИТ УНИТ1; ИНТЕРФАЦЕ УСЕС ВИНДОВС, МЕССАГЕС, СЫСУТИЛС, ВАРИАНТС, ЦЛАССЕС, ГРАПХИЦС, ЦОНТРОЛС, ФОРМС, ДИАЛОГС, СТДЦТРЛС; ТЫПЕ ТФОРМ1 = ЦЛАСС (ТФОРМ) ЛИСТБОХ1: ТЛИСТБОХ; БУТТОН1: ТБУТТОН; ЕДИТ1: ТЕДИТ; ПРОЦЕДУРЕ ФОРМЦРЕАТЕ (СЕНДЕР: ТОБЯЕЦТ); ПРОЦЕДУРЕ БУТТОН1ЦЛИЦК (СЕНДЕР: ТОБЯЕЦТ); ПРИВАТЕ { ПРИВАТЕ ДЕЦЛАРАТИОНС } ПУБЛИЦ { ПУБЛИЦ ДЕЦЛАРАТИОНС } ЕНД; ВАР ФОРМ1: ТФОРМ1; ИМПЛЕМЕНТАТИОН {$Р *.ДФМ} ПРОЦЕДУРЕ ТФОРМ1.ФОРМЦРЕАТЕ (СЕНДЕР: ТОБЯЕЦТ); БЕГИН СХОВ; ЕНД; ПРОЦЕДУРЕ ТФОРМ1.БУТТОН1ЦЛИЦК (СЕНДЕР: ТОБЯЕЦТ); ВАР А: АРРАЫ [1..10] ОФ ИНТЕГЕР; И, М: ИНТЕГЕР; БЕГИН ЛИСТБОХ1.ЦЛЕАР; РАНДОМИЗЕ; И: =1; ВХИЛЕ И<=10 ДО БЕГИН А [И]: =РАНДОМ (10)+12; ЛИСТБОХ1.ИТЕМС. АДД (ИНТТОСТР (А [И])); И: =И+1; ЕНД; И: =2; М: =А [1]; ВХИЛЕ И<=10 ДО БЕГИН ИФ М>А [И] ТХЕН М: =А [И]; И: =И+1; ЕНД; ЕДИТ1.ТЕХТ: =ИНТТОСТР (М); ЕНД; ЕНД.

 

[saiber]

Там вроде написано if mas(1)... то есть 1 вместо i