Заданы одномерные массивы a и b. найти сумму положительных элементов массива b и заменить на это значение все элементы массива а расположение перед максимальным элементом массива
142
491
Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1660 от 20.04.2018 внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',50); a.println; var b: =arrrandom(readinteger('n=',50); b.println; var sp: =b.where(t-> t> 0).sum; var im: =a.indexmax; if im> 0 then begin a: =arrfill(im,sp)+a[im: ]; a.println end else writeln('максимальный элемент стоит первым') end. пример n= 15 -34 -10 30 16 -36 35 10 39 21 50 29 -41 4 25 -28 n= 13 -36 -6 -3 5 -34 -19 -35 -23 2 49 -8 24 -3 80 80 80 80 80 80 80 80 80 50 29 -41 4 25 -28
var
a: string;
i: integer;
begin
a:='Ростик';
for i:= 1 to 7 do
writeln(a);
readln;
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Kevand13.08.2021 04:51
-
Кate125726.04.2022 16:14
-
mr7ka09.05.2021 16:24
-
xandar81521.01.2023 12:50
-
Vadimka22110531.01.2021 14:04
-
applevip13.03.2021 23:19
-
zhabinalena128.04.2022 04:12
-
Karelina198813.01.2021 10:03
-
romannikodov21.05.2020 07:10
-
vagiz700016.02.2023 18:51
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.