Begin
var a:=ArrRandom(10,-10,10).Println;
writeln(a.Where(x->x<0).Max);
end.
1 отношение между двумя множествами объектов
2 отношение между объектами и множеством объектов
3) отношение между двумя объектами
Var y:real; i:integer;
begin
y:=1;
for i:=1 to 52 do
y:=y*(i*i*i)/(i*i+1);
writeln('y = ',y);
end.
Результат:
y = 2.23632650309607E+67