Дано натуральное число n и массив натуральных чисел а, заданных случайным образом из диапазона от 30 до 60. найти минимальный элемент и его номер. решить для n=10. на паскале.

const

  n=10;

var

  a: array [1..n] of integer;

  i,min,number: integer;

begin

  randomize;

  a[1]: =random(31)+30;

  write (a[1]: 3);

  min: =a[1];

  number: =1;

  for i: =2 to n do

    begin

    a[i]: =random(31)+30;

    write (a[i]: 3);

    if a[i]< min then

      begin

      min: =a[i];

      number: =i;

      end;

    end;

  writeln;

  writeln ('min element - ',min,' s nomerom - ',number);

  readln;

end.

не понял, зачем нужен n. пишу без него, если что исправьте.

program qwe;

const n=10;

var a: array [1..n] of integer; i,min,nom: integer;

begin

for i: =1 to n do

  a[i]: =30+random(30);

min: =100;

for i: =1 to n do

  if a[i]< min then begin

                                                          min: =a[i];

                                                          nom: =i;

                                                          end;

writeln('число ',min,' номер его ',nom);

end.

end.

1, 2, 4, 8, 16, 32, 64

ответ: 16