Есть ответ 👍

Составить программу для вычисления периметра ромба

114
299
Посмотреть ответы 2

Ответы на вопрос:


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

Популярно: Информатика