Question

Найти минимальный элемент массива целых чисел,с помощью генератора случайных чисел. Решение в Delphi.

Answer 1

{Массив задаётся с помощью генератора случайных чисел. после того как он задан, последовательно перебираются все элементы и определяется наименьший элемент.}
procedure minZNmas;
 var
  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];

      Application.MessageBox(PChar(s),'Значения массива', MB_ICONINFORMATION);

Application.MessageBox(PChar(IntToStr(min)),'Минимальное значение', MB_ICONINFORMATION);

end;

begin   minZNmasend.