Ответы на вопрос:
Var a, b, c: array[1..15] of real; i, m, max_weight, b_n, c_n, n, max: integer; s: real; begin n : = 15; m : = 10; max_weight : = 50; writeln('введите массы состава ', m, ' состоящего из ', n, ' вагонов'); for i : = 1 to n do begin write('масса вагона № ', i, ' = '); readln(a[i]); end; writeln(); writeln('все вагоны: '); for i : = 1 to n do writeln('вагон №', i, ' = ', a[i], ' тон'); writeln(); writeln('порожние вагоны: '); for i : = 1 to n do if (a[i] < = m) then writeln('вагон №', i); writeln(); s : = 0; writeln('груженные вагоны: '); for i : = 1 to n do if (a[i] > m) then begin s : = s + a[i]; writeln('вагон №', i); end; writeln('сумма масс груженных вагонов = ', s); {// if s > max_weight then begin // writeln('превышение массы! состав не будет сформирован'); // exit; // end; } writeln; writeln('новый состав: '); s : = 0; for i : = 1 to n do if (a[i] > m) and (s + a[i] < = max_weight) then begin b_n : = b_n + 1; s : = s + a[i]; b[b_n] : = a[i]; writeln('вагон №', b_n, ' = ', b[b_n], ' тон'); end else begin c_n : = c_n + 1; c[c_n] : = a[i]; end; writeln(); writeln('остаток: '); for i : = 1 to c_n do writeln('вагон №', i, ' = ', c[i], ' тон'); writeln(); max : = 1; for i : = 1 to b_n do if b[i] > b[max] then max : = i; writeln('максимальная масса в составе: вагон №', max, ' = ', b[max], ' тон'); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Гришаха01.09.2020 03:47
-
katherinepierce186417.01.2022 20:05
-
salbekov20107.01.2023 14:16
-
доброx520.10.2021 22:22
-
mockingbird1211.05.2022 07:18
-
flak20219.04.2020 09:12
-
Натали2004абвг16.06.2023 01:36
-
SaBzZiRo15.08.2020 10:39
-
555Mari55508.03.2021 03:25
-
sweetdreamsmade9125.03.2023 01:02
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.