Дан массив 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.