// PascalABC.NET 3.3, сборка 1541 от 29.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Min = ',a.Where((x,i)->i.IsEven).Min)
end.
Пример
n= 15
30 15 -75 52 54 -99 73 30 -30 2 -97 -94 -46 15 -90
Min = -97
begin
var n:=ReadInteger('n=');
var s:=BigInteger(0);
for var i:=1 to n do begin
var p:=BigInteger(1);
for var j:=i to i*i do p*=j;
s+=p
end;
Writeln(s)
end.
Пример
n= 5
646300418475611547829465
begin
var a:=ArrRandom(25,-99,99); a.Println;
var b:=ArrRandom(ReadInteger('n='),-99,99); b.Println;
Writeln('Пересечение:'); a.Intersect(b).Println;
Writeln('Объединение слиянием:'); (a+b).Println;
Writeln('Объединение как множества:'); (a+b).Distinct.Println;
end.
Пример
63 39 -98 23 -66 -66 -88 2 -39 35 -56 -59 60 -97 -16 -90 67 37 -99 -65 48 -31 -36 -72 40
n= 15
-18 89 47 51 -55 -98 77 -42 -67 -44 -79 -20 -57 -88 -9
Пересечение:
-98 -88
Объединение слиянием:
63 39 -98 23 -66 -66 -88 2 -39 35 -56 -59 60 -97 -16 -90 67 37 -99 -65 48 -31 -36 -72 40 -18 89 47 51 -55 -98 77 -42 -67 -44 -79 -20 -57 -88 -9
Объединение как множества:
63 39 -98 23 -66 -88 2 -39 35 -56 -59 60 -97 -16 -90 67 37 -99 -65 48 -31 -36 -72 40 -18 89 47 51 -55 77 -42 -67 -44 -79 -20 -57 -9