Ответы на вопрос:
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
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
Vikatyn28.09.2021 04:13
-
angeldeikina08.01.2022 02:17
-
Olka190910.02.2020 10:51
-
lolkek302314.07.2022 04:15
-
lilka2301.02.2022 03:37
-
XXX231xxx04.01.2021 04:42
-
nik1ado2113.08.2022 18:28
-
vevgrafov04.10.2022 10:33
-
56анна214120.07.2020 03:01
-
девочка25th19.10.2021 03:13
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.