Найти произведение только тех чисел, которые больше заданного числа m - Pascal ABC - Ответ 1473971

program tt;
uses crt;
type Tmas=array[1..100] of integer;
var
  m:Tmas;
  n,i:byte;
  m_:integer;
  ch:char;
procedure enter(n:byte;var arr:Tmas);
begin
  randomize;
  for i:=1 to n do
    arr[i]:=random(40)-20;
end;
 
procedure show(n:byte;arr:Tmas);
begin
  write('Массив: ');
  for i:=1 to n do
    write(arr[i],' ');
  writeln;
end;
 
procedure z_a(n:byte;arr:Tmas);
var
  p1,p2:integer;
  pr:integer;
begin
  ClrScr;
  p1:=1;
  p2:=1;
  for i:=1 to n do begin
    if arr[i]<0 then p1:=p1*arr[i];
    if arr[i]>0 then p2:=p2*arr[i];
  end;
  writeln('Произведение положительных: ',p2);
  writeln('Произведение отрицательных: ',p1);
  if abs(p1)>p2 then writeln('Произведение отрицательных больше')
  else writeln('Произведение положительных больше');
  writeln('Для возврата в меню нажмите Enter');
  readln;
end;
 
procedure z_b(m_:integer;n:byte;arr:Tmas);
var
  p:integer;
begin
  ClrScr;
  p:=1;
  for i:=1 to n do
    if arr[i]>m_ then
      p:=p*arr[i];
  writeln('Произведение элементов больших m: ',p);
  writeln('Для возврата в меню нажмите Enter');
  readln;
end;
procedure z_c(n:byte;arr:Tmas);
var
  kol:byte;
begin
  ClrScr;
  kol:=0;
  for i:=1 to n do
    if arr[i]>0 then
      inc(kol);
  writeln('Кол-во положительных элементов: ',kol);
  writeln('Для возврата в меню нажмите Enter');
  readln;
end;
 
procedure z_d(n:byte;arr:Tmas);
var
  c:integer;
begin
  for i:=1 to n do
    if odd(i) then begin
      c:=arr[i];
      arr[i]:=arr[i+1];
      arr[i+1]:=c;
    end;
  for i:=1 to n do
    write(arr[i],' ');
  writeln;
  writeln('Для возврата в меню нажмите Enter');
  readln;
end;
 
BEGIN
  write('Введите размер массива ');
  readln(n);
  enter(n,m);
  repeat
  ClrScr;
  show(n,m);
  writeln('1. задача а');
  writeln('2. задача б');
  writeln('3. задача в');
  writeln('4. задача г');
  writeln('5. Выход');
  ch:=readkey;
  case ch of
    #49:z_a(n,m);
    #50:begin
        ClrSCr;
        write('Введите m ');
        readln(m_);
        z_b(m_,n,m);
      end;
    #51:z_c(n,m);
    #52:z_d(n,m);
  end;
  until ch=#53;
END.