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

var min, i,position:integer;a:array [1..14] of integer;beginfor i:=1 to 14 do begina [i]:=Random (-20,-8);end;min:=a[1];position:=1;for i:=2 to 14 do beginif (a[i] < min) thenbeginmin:=a[i];position:=i;end;end;write ('Массив ');for i:=1 to 14 do beginwrite (a [i]);write (' ');end;writeln(' ');writeln ('Минимальный элемент находится на позиции: ', position);writeln ('Минимальный элемент равен: ', min);end.

var min, i,position:integer;a:array [1..14] of integer;beginfor i:=1 to 14 do begina [i]:=Random (-20,-8);end;min:=a[1];position:=1;for i:=2 to 14 do beginif (a[i] < min) thenbeginmin:=a[i];position:=i;end;end;write ('Массив ');for i:=1 to 14 do beginwrite (a [i]);write (' ');end;writeln(' ');writeln ('Минимальный элемент находится на позиции: ', position);writeln ('Минимальный элемент равен: ', min);end.