50 ! .
в массиве из 15 вещественных чисел найти наибольший элемент и поменять его местами с последним элементом.
нужно составить программу для visual basic for application (vba).
заранее огромное ​

ответ:

program laba;

{$apptype console}

uses

  sysutils,

  windows;

var

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

  i,imax,x: integer;

begin

setconsoleoutputcp(1251);

  for i: =1 to 15 do

begin

writeln('введите',i,'-й элемент');

readln(a[i]);

end;

imax: =1;

for i: =2 to 15 do

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

x: =a[15];

writeln('максимальное число = ',a[imax],' его индекс= ',imax);

if imax=15 then write('он последний, обмена нет');

else

  begin

  x: =a[imax];

  a[imax]: =a[15];

  a[15]: =x;

  writeln('обмен максимального и последнего: ');

  for i: =1 to 15 do

  write(a[i]: 6: 3,' ');

  end;

readln;

end.

объяснение:

sub swap()

    dim r as range, a as variant

    dim i as integer, im as double, n as integer, t as double

    n = 15

    set r = range(cells(1, 1), cells(1, n))

    a = r

    im = 1

    for i = 2 to n

        if a(1, i) > a(1, im) then

            im = i

        end if

    next i

    t = a(1, im)

    a(1, im) = a(1, n)

    a(1, n) = t

    set r = range(cells(2, 1), cells(2, n))

    r = a

end sub

на лист в ячейки а1 - о1 заносим исходные 15 чисел

на этот же лист через проект помещаем макрос и запускаем.

результат будет в ячейках а2 - о2