89112897334artem1131

30.07.2021 02:23

Информатика

Есть ответ 👍

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

221

456

Посмотреть ответы 3

Ответы на вопрос:

garkachev20031

Информатика

4,5(12 оценок)

ответ:

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.

объяснение:

ksysharaz

Информатика

4,6(21 оценок)

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

57алес7т

Информатика

4,5(47 оценок)

10101011₂= 17111001100₂ = 204 11000111₂ = 19911110100₂= 244 bc₁₆ = 188 20₈ = 16 188+16 = 204 171< 204 199< 204 ответ: 2 числа

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

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