{Массив задаётся с помощью генератора случайных чисел. после того как он задан, последовательно перебираются все элементы и определяется наименьший элемент.} procedure minZNmas; <span> var </span> mas: array[1..15] of integer; k: integer; min: integer; s: string; begin
randomize; //Заполнение массива случайными величинами s:=''; for k:=1 to 15 do begin mas[k]:=random(800); s:=s+IntToStr(mas[k])+','; end;
//Поиск минимального значения min:=mas[k]; for k:=1 to 15 do if mas[k]<min then min:=mas[k];