Дан массив x (10). Найти номер min элемента массива. Умножить на этот индекс все элементы.

Var

n, i, mn:integer;

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

begin

writeln ('vvedite massiv') ;

for i:=1 to 10 do

readln (a[i]) ;

writeln ('Ishodnii massiv') ;

for i:=1 to 10 do

write (a[i],' ') ;

writeln () ;

mn:=1;

for i:=1 to 10 do

if a[mn]>a[i] then mn:=i;

for i:=1 to 10 do

a[i]:=a[i]*mn; 5

writeln ('Massiv posle obrabotki') ;

for i:=1 to 10 do

write (a[i],' ') ;

writeln () ;

end.