Блог Захарова Андрея

program MinElement;
const
  {количество элементов массива}
  N=10;
var
  i,j: integer;
  arr: array [1..N] of integer;
begin
  {заполняем массив случайными числами}
  for j:=1 to N do begin
    arr[j]:= random(100);
    {выводим элемент}
    write(arr[j], ' ');
  end;
  {пусть наименьшим будет первый элемент}
  i := 1;
  {перебираем элементы массива}
  for j:=2 to N do
    {если элемент является наименьшим, то запоминаем его номер}
    if arr[i] > arr[j] then i := j;
  {выводим наименьший элемент массива}
  writeln('element ', arr[i]);
end.