Вмассиве из 8 целых чисел переставить максимальный элемент на первое место, а элементы с первого до максимального сдвинуть на одну позицию вправо. написать программу для vba ms excel. данные могут генерироваться случайным образом,главное,чтобы это было 8 целых чисел. вывод осуществляется в строке (label),либо как сделаете

Во вложении файл с рабочей книгой ms excel 2003 sub abcd()       dim n as integer, a(1 to 8) as integer       dim r as range       n = 8       imax = 1       set r = range(cells(1, 1), cells(2, 8))       r.clearcontents 'очистка области       r.interior.color = rgb(255, 255, 255) 'очистка цвета заливки       for i = 1 to n               a(i) = int(30 * rnd)               if a(i) > a(imax) then imax = i               cells(1, i) = a(i)       next       t = a(imax)       cells(1, imax).interior.color = rgb(204, 255, 255)       range(cells(1, 1), cells(1, imax - .color = rgb(255, 255, 153)       for i = imax - 1 to 1 step -1               a(i + 1) = a(i)       next       a(1) = t       for i = 1 to n               cells(2, i) = a(i)       next       cells(2, 1).interior.color = rgb(204, 255, 255)       range(cells(2, 2), cells(2, .color = rgb(255, 255, 153) end sub

var n,z: longint;

begin

  read(n);

  z: =abs(n);

  z: =z-2;

  writeln(z);

end.