Введите с клавиатуры одномерный массив f(t), элементами которого являются положительные и отрицательные целые числа. найдите среднее арифметическое значение четных и нечетных элементов массива, сравните значение между собой, определив минимальное. сформируйте новый массив e(n), состоящий из элементов массива f(t), которые больше найденного минимального значения.

Предполагается, что в массиве есть хотя бы одно четное и одно нечетное значение.

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!

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.

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

1)
begin
  var a:=ArrRandom(ReadInteger('n='),20,79); a.Println;
  var x:=a.Where(t->t.IsEven).Count; 
  If x>0 then Println('Количество четных:',x) else Println('Четных нету');
  var y:=a.Where(t->t mod 10=6).Count; 
  If y>0 then Println('Количество оканч. на 6:',y) else Println('Оканч. на 6 нету');
end.

Пример:
n= 5
79 29 27 74 27
Количество четных: 1 
Оканч. на 6 нету 

2)
begin
  var a:=ArrRandom(10,0,100); a.Println;
  Println('Кол-во пар:',Range(0,8,2).Where(t->a[t]=a[t+1]).Count)
end.

Пример:
56 93 72 72 71 24 37 55 91 91
Кол-во пар: 2 

Program asd;

uses crt;

var a,b,c,max:integer; r:real;

begin

 Write('Введите число A: '); 

Readln(a);

 Write('Введите число B: '); 

Readln(b); 

Write('Введите число C: '); 

Readln(c); 

If  a>=b then max:=a

 else 

 max:=b;   

 If c>max then

max:=c; 

r:=a+b+c;

 If (A>B) and (B>C) and (C>0) then

 Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);

 If (A<0) and  (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A)  then

 begin   

A:=max;   

 B:=max; 

 C:=max; 

Writeln('A= ',a,' B= ',b,' C= ',c); 

  end   

else   

 Writeln('Symma: ',r);

end

Объяснение:

Program asd;

uses crt;

var a,b,c,max:integer; r:real;

begin

 Write('Введите число A: '); 

Readln(a);

 Write('Введите число B: '); 

Readln(b); 

Write('Введите число C: '); 

Readln(c); 

If  a>=b then max:=a

 else 

 max:=b;   

 If c>max then

max:=c; 

r:=a+b+c;

 If (A>B) and (B>C) and (C>0) then

 Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2);

 If (A<0) and  (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A)  then

 begin   

A:=max;   

 B:=max; 

 C:=max; 

Writeln('A= ',a,' B= ',b,' C= ',c); 

  end   

else   

 Writeln('Symma: ',r);

end