Заполните линейный массив из 14 элементов случайными целыми числами с помощью функции случайного числа из интервала от - 20 до - 8. Вывести его в одну строку. Найти в массиве на минимальный элемент, на какой позиции он стоит в массиве.

Var

min, i, position:integer;

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

begin

for i:=1 to 14 do begin

a [i]:=Random (-20,-8) ;

end;

min:=a[1];

position:=1;

for i:=2 to 14 do begin

if (a[i] < min) then

begin

min:=a[i];

position:=i;

end;

end;

write ('Массив ') ;

for i:=1 to 14 do begin

write (a [i]) ;

write (' ') ;

end;

writeln (' ') ;

writeln ('Минимальный элемент находится на позиции: ', position) ;

writeln ('Минимальный элемент равен: ', min) ;

end.