Нахождение в массиве максимального элемента среди всех нечетных - Pascal ABC - Ответ 5685239

var a: array [1..10] of integer;
    i, j, max, max_numb, sum, f, mult: integer;
begin
     write('Array: ');
     for i:=1 to 10 do
         begin
              a[i]:=random(10)-4;
              write(a[i],' ');
         end;
     max:=0;
     max_numb:=0;
     for i:=1 to 10 do
         begin
              if ((i mod 2 <> 0) and (a[i]>max)) then
              begin
                   max:=a[i];
                   max_numb:=i;
              end;
         end;
     writeln;
     write('1) Max = ', max, '; Position = ', max_numb);
      f:=0;
      sum:=0;
      for i:=1 to 10 do
          begin
               if a[i]<0 then
                  inc(f);
               if f=2 then
                  begin
                       f:=i;
                       break;
                  end;
          end;
      for i:=f to 10 do
          sum:=sum+a[i];
      writeln;
      write('2) Sum = ', sum, '; With position = ', f);
      mult:=1;
      for i:=1 to 10 do
          if (a[i] mod 3 = 0) then
             mult:=mult*a[i];
      writeln;
      write('3) Multiple = ', mult);
      for i:=9 downto 1 do
              for j:=1 to i do
                   begin
                        if a[j]>a[j+1] then
                           begin
                                f:=a[j];
                                a[j]:=a[j+1];
                                a[j+1]:=f;
                           end;
                   end;
      writeln;
      write('4) Array: ');
       for i:=1 to 10 do
           write(a[i], ' ');
end.