Pascal. Заменить 8-ой элемент одномерного массива на минимальное значение его элементов.

program raf105;

var i,b,min:integer;

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

begin

writeln('Вводите 10 чисел по очереди');

for i:=1 to 10 do

begin

readln(a[i]);

if (i=1) or (a[i]

then min:= a[i];

end;

a[8]:= min;

writeln('Вывод:');

for i:=1 to 10 do

writeln('[',i,'] ',a[i]);

end.

Язык программирования PascalABC

Pascal. Заменить 8-ой элемент одномерного массива ** минимальное значение его элементов.