Ответы на вопрос:
Program; uses crt; var a: real; begin writeln('введите сторону ромба'); read(a); p: =a*a; writeln('периметр ромба равен'); end
// pascalabc.net 3.0, сборка 1139 от 10.01.2016 begin var n: =readinteger('n='); var b: =arrrandomreal(n,-5,10); writeln('исходный массив'); b.println(', '); writeln('сумма положительных элементов ', b.where(x-> x> 0).sum) end. тестовое решение: n= 10 исходный массив 6.62419754156107, 6.74697848816727, 4.73433683148322, -0.587218480923781, -4.4331698163567, 0.961155824345143, -0.229649536884227, 7.50758543494511, 7.66080652720332, 9.97409514848799 сумма положительных элементов 44.2091557961931
Популярно: Информатика
-
evaeva200623.02.2020 02:21
-
edgarotlichnik5528.07.2022 18:53
-
танюша10802.03.2020 05:03
-
macglok1219.08.2021 18:33
-
опв413.10.2020 18:44
-
Elizaveta3012200512.09.2021 23:49
-
nikserg22311.07.2022 21:34
-
Евгеша20011111.08.2020 18:16
-
Lolycomp4024.05.2020 07:16
-
stozhok199807.11.2022 22:10