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

как пример:

составное выражение, лигические операторы:

not - отрицание

and - умножение

or - сложение

результат - истина:

(2 + 2 = 5) - ложь, в инверсии - истина

(3 * 3 = 9) - истина

(1+1=8) - ложь, но не влияет на результат, поскольку -

not(2 + 2 = 5) and (3 * 3 = 9) - истина

сочинение о мини ноутбуках,                                                   : однажди родители подарили мне нетбук я так радовался(лас,) я кажды день сидел за ним и он мне ноавился. но однажды я пролил на него воду я думал всё   больше не будет у меня нетбука ,я растроился. мама сказала какой ты не уклюжий и так далее