Отыскать творение частей массива с(12) , имеющих значение в промежутке 5,3;40,7

Отыскать творенье частей массива с(12) , имеющих значение в интервале 5,3;40,7

Задать свой вопрос
2 ответа
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var c:=ArrRandomReal(12,-10,70).Println();
write(c.Where(x-gt;(xgt;5.3) and (xlt;40.7)).Aggregate(Real(1),(x,y)-gt;x*y));
end.
//Pascal
var
  c: array [1..12] of real;
  i: byte;
  mult: real;
begin
randomize;
mult := 1;
for i := 1 to 12 do
begin
  c[i] := random * 75;
  if ((c[i] gt; 5.3) and (c[i] lt; 40.7)) then
    mult := mult * c[i];
  write(c[i]:7:2);
end;
writeln;
writeln('Творенье элементов от 5,3 до 40,7 = ', mult:10:2);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт