Дан массив из 10 элементов целого типа. Найти минимальный элемент массива, умножить его на 6, а затем вычесть его из каждого элемента. Весь массив напечатать.

vara:array [1..10] of integer;i,k,m:integer;beginfor i:= 1 to 10 doa[i]:= Random(0,100);writeln(a);m:=a[1];for i:=2 to 10 doif a[i]<m then m:=a[i];m:=m*6;for i:= 1 to 10 doa[i]:= a[i]-m;writeln(a);end.