Ответы на вопрос:
// pascalabc.net 3.0, сборка 1128 begin var a: =arrrandom(20,-10,19); a.println(','); // 1 var b: =readarrinteger('введите 10 целых чисел',10); // 2 writeln('количество положительных элементов ', a.where(x-> x> 0).count); // 3 for var i: =0 to 19 do if a[i]< 0 then a[i]: =0; writeln('массив а после замены отрицательных'); a.println(','); //4 writeln('сумма положительных элементов ', a.where(x-> x> 0).sum) // 5 end. тестовое решение: 14,8,9,-5,6,3,3,-10,-8,18,7,13,2,17,-1,0,4,-3,8,-8 введите 10 целых чисел -5 0 13 -7 -14 11 8 19 -3 -1 количество положительных элементов 13 массив а после замены отрицательных 14,8,9,0,6,3,3,0,0,18,7,13,2,17,0,0,4,0,8,0 сумма положительных элементов 112
Популярно: Информатика
-
Marinap04174402.02.2023 00:45
-
guest24615.05.2020 16:09
-
Edward1111111106.04.2023 18:24
-
TanyaNef23.04.2020 11:14
-
JeDor1526.02.2023 00:37
-
АААННЯЯЯ11119.05.2021 14:49
-
ЛАПУЛЛЯ22.09.2020 07:56
-
madinagame544402.09.2020 09:28
-
yakubchik200426.05.2023 00:52
-
lexus56ru13.05.2022 13:01