zadacha_4

program zadacha_4;
uses crt;
var a:array[1..10] of integer;
    i,imin, min:integer;
begin
  randomize;
  for i := 1 to 10 do
  begin
    a[i] := Random(10)+1;
    write(a[i]:3);
  end;
  writeln;
  min := a[1]; imin := 1;
  for i := 2 to 10 do
  begin
    if min > a[i] then
    begin
      min := a[i];
      imin := i;
    end;
  end;
  if imin < 5 then writeln('Минимальный элемент: ', min, '. Находится в первой половине')
    else if imin > 5 then writeln('Минимальный элемент: ', min, '. Находится во второй половине');
end.