//Pascal ABC.NET v3.1 сборка 1172
begin
range(26,87).Where(x -> x mod 3=0).Println(',');
end.
var x,y:real; i:integer;
Begin
x := 1;
while(x < 50) do Begin
read(y);
x := x * y;
writeln(' Произведение = ', x);
inc(i);
End;
write('Введено ',i,' чисел');
End.
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger(15);
var s:=Range(0,a.Length-1,2).Select(i->a[i]);
Writeln('Среднее геометрическое элементов на нечетных позициях ',
(s.Aggregate(1.0,(p,q)->(p*q)))**(1/s.Count))
end.
#include <iostream>
int main()
{
double sum = 0.0;
int count = 0;
for (int i = 0; i < 10; ++i)
{
double value;
std::cin >> value;
if (value > 0)
{
sum += value;
count++;
}
}
double average = sum / count;
std::cout << average << std::endl;
return 0;
}