Регистрация Спросить otvet5GPT
Tenur
12.05.2021 12:23
Информатика
Есть ответ 👍

Дана последовательность не более n ненулевых целых чисел, последним числом в последовательности является 0. ввести эту последовательность в одномерный массив и вычислить хаpактеристики .найти порядковые номера и сумму двух наибольших элементов. ( в паскаль )

260
318
Посмотреть ответы 2

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

DANIL79NR
DANIL79NR
4,6(5 оценок)
Type   te = record       v: integer;       p: integer;   end; procedure swap2e(var a: te; var b: te); // обмен содержимым пары записей var   buff: integer; begin   buff : = a.v; a.v : = b.v; b.v : = buff;   buff : = a.p; a.p : = b.p; b.p : = buff end; procedure swap3e(var a: te; var b: te; var c: te); // обмен содержимым трех записей // предполагается, что до вызова процедуры a.v> =b.v, // после вызова значение с.v помещается в a.v или b.v так, // чтобы большее из трех значений попало в a.v, а следующее // по величине попало в b.v. младшее значение теряется.  begin   if c.v > = a.v then begin       swap2e(a, b); swap2e(a, c)   end   else   if c.v > b.v then swap2e(b, c); end; const   n = 50; var   a: array[1..n] of integer;   r1, r2, t: te;   i, e, m: integer; begin   i : = 1;   writeln('вводите числа, 0 - конец ввода');   repeat       read(e);       a[i] : = e;       i: =i+1;   until e = 0;   m : = i;   if a[1] > a[2] then begin       r1.v : = a[1]; r1.p : = 1;       r2.v : = a[2]; r2.p : = 2   end   else begin       r1.v : = a[2]; r1.p : = 2;       r2.v : = a[1]; r2.p : = 1   end;   for i : = 3 to m do   begin       t.v : = a[i];       t.p : = i;       swap3e(r1, r2, t)   end;   writeln('максимальные значения имеют элементы с номерами ', r1.p, ' и ', r2.p);   writeln('сумма этих элементов равна ', r1.v + r2.v) end. контрольный пример: вводите числа, 0 - конец ввода 18 6 13 40 14 52 0 максимальные значения имеют элементы с номерами 6 и 4 сумма этих элементов равна 92
liza9novxp011he
liza9novxp011he
4,4(81 оценок)

Микропроцессор (устройство, отвечающее за выполнение арифметических, логических операций и операций — процессор управления, записанных в машинном коде), реализованный в виде одной микросхемы или комплекта нескольких специализированных микросхем (в отличие от реализации процессора в виде электрической схемы на элементной базе общего назначения или в виде программной модели).

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

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

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

Caktus Image

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

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

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

  • Сколько это стоит?

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

  • Могу ли я использовать otvet5GPT в школе?

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

  • В чем отличия от ChatGPT?

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

Подпишись на наш телеграмм канал

GTP TOP NEWS