Найти количество четных положительных и количество нечетных отрицательных элементов заданного одномерного массива. массив сгенерировать с генератора случайных чисел в диапазоне от -12 до 20. количество элементов в массиве 30.

// PascalABC.NET 3.3
begin
  var a:=ArrRandom(30,-12,20); a.Println;
  writeln('Четных положительных: ',a.Where(x->(x mod 2=0)and(x>0)).Count);
  writeln('Нечетных отрицательных: ',a.Where(x->(x mod 2<>0)and(x<0)).Count);
end.

Пример:-12 6 -11 -4 0 12 12 -9 -3 9 12 -3 15 18 0 -11 6 -9 12 11 16 -7 -2 -5 10 -1 3 18 0 0
Четных положительных: 10
Нечетных отрицательных: 9

var  

  arr:array[1..1000] of integer;

  i,N:integer;

  max:integer;

begin

   max:=1;

   

   write('Укажите кол-во эл-ов - ');

   

   read(N);

   

   for i:=1 to N do//Присваивание и вывод массива

   begin

       arr[i]:=1+random(100);

       

       write(arr[i],'  ');

       

       if arr[i]>max then max:=arr[i];

   end;

   

   writeln;

   

   writeln('Максимальный эл-т - ',max);

   

   for i:=1 to N do//Увеличение чет. эл-ов

     begin

     if arr[i] mod 2=0 then arr[i]:=arr[i]+max;

     

     write(arr[i],'  ');

     end;

 

end.

Объяснение:

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Подробнее - на -