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]<min)

   then min:= a[i];

end;

a[8]:= min;

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

for i:=1 to 10 do

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

end.

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

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