3157,3175,3571,3517,3751,3715,1357,1375,1537,1573,1735,1753,5137,5173,5317,5371,5731,5713,7135,7153,7351,7315,7531,7513
Таблица истинности - в приложении.
Предполагается, что в массиве есть хотя бы одно четное и одно нечетное значение.
begin
var F := ReadArrInteger(ReadInteger('T='));
var ae := F.Where(p -> p.IsEven).Average;
var ao := F.Where(p -> p.IsOdd).Average;
var m := Min(ae, ao);
var E := F.Where(p -> p > m).ToArray;
E.Println
end.
var A:array[1..10] of integer;
i,k:integer;
k:=0;
for i:=1 to 10 do
if (a[i]>0) and (a[i] mod 3=0) then k:=k+1;
writeln ('k=',k);
readln;
помоему так)