Поиск минимального нечетного элемента в заданном целочисленном массиве из 50 элементов

uses crt;
var i,min: integer;
    arr: array[1..51] of integer;
begin
 min:=1;
 for i:=1 to 51 do
  begin
   arr[i]:=random(100)-51;
   write(arr[i]:3);
  end;
 for i:=1 to 51 do
  if arr[i] mod 2<>0 then
   if arr[i]<arr[min] then
    min:=i;
 writeln;
 write('Минимальный нечетный элемент: ',arr[min]);
 end.

uses crt;
var i,sum,j: integer;
    sredn: real;
    arr: array[1..51] of integer;
begin
 j:=0;
 sum:=0;
 for i:=1 to 51 do
  begin
   arr[i]:=random(100)-51;
   write(arr[i]:3);
  end;
 for i:=1 to 51 do
  if arr[i] mod 2=0 then
   begin
    sum:=sum+arr[i];
    inc(j);
   end;
   sredn:=sum/j;
 writeln;
 write('Средн. арифм. четны. элементов: ',trunc(sredn));
 end.

var
i,min,max:integer;
a:array[1..50] of integer;
 
begin
 
randomize;
for i:=1 to 50 do
begin
a[i]:=random(100);
write (a[i],' ');
end;
 
min:=a[1];
max:=a[1];
 
for i:=1 to 50 do
begin
if (a[i] mod 2 <> 0 ) and (a[i]<min) then min:=a[i];
if (a[i] mod 2 <> 0 ) and (a[i]>max) then max:=a[i];
 
end;
 
writeln;
writeln ('Max=',max);
writeln ('Min=',min);
writeln ('Raznica=',max-min);
 
readln;
 
end.

uses crt;
var i,j,max,min: integer;
    arr: array[1..51] of integer;
begin
 min:=1;
 max:=1;
 for i:=1 to 51 do
  begin
   arr[i]:=random(100)-51;
   write(arr[i]:3);
  end;
 for i:=1 to 51 do
  if arr[i] mod 2<>0 then
   begin
    if arr[i]<arr[min] then
     min:=i;
    if arr[i]>arr[max] then
     max:=i;
   end;
 j:=max-min;
 writeln;
 write('Разность между ',arr[max],' и ',arr[min],' =',j);
 end.

program p;
const n=50;
type titem=integer;
       ta=array[1..n] of titem;
var a:ta;
procedure inputarray(var a:ta; c:char);
var i:integer;
begin
       for i:=1 to n do
           begin
                  write(c,'[',i,']=');
                  readln(a[i]);
           end;
end;
function seacrh (a:ta):titem;
var i:integer;
     m1,m2:integer;
begin
       m1:=1;
       for i:=2 to n do
       begin
              if a[i]>a[m1] then m1:=i;
       end;
       m2:=(m1 mod n)+1;
       for i:=1 to n do
       begin
              if i<>m1 then if a[i]>a[m2] then m2:=i;
       end;
       seacrh:=a[m2];
end;
begin
       input(a,'a');
       writeln(seacrh(a));
end.

uses crt;
var i,j,k: integer;
    arr: array[1..60] of integer;
begin
 for i:=1 to 50 do
  begin
   arr[i]:=random(100)-51;
   write(arr[i]:3);
  end;
  if arr[1]>arr[2] then
   begin
    j:=arr[1];
    k:=arr[2];
   end
   else
    begin
     k:=arr[1];
     j:=arr[2];
    end;
  for i:=3 to 51 do
  if arr[i]>j then
   begin
    k:=j;
    j:=arr[i];
   end
   else
    if arr[i]>k then
     k:=arr[i];
 writeln;
 write('1-й элемент: ',j,', второй элемент: ',k);
 end.

const
  nmax=100;
type
  Tarr=array[1..nmax] of integer;
var
  a:Tarr;
  i,n,min:integer;
  minset:boolean;
begin
  randomize;
  write('Razmer massiva, ne bolee ',nmax,': ');
  readln(n);
  writeln('Ishodniy massiv:');
  for i:=1 to n do
    begin
      a[i]:=random(5);
      write(a[i]:4);
    end;
  writeln;
  minset:=false;
  for i:=1 to n do
    if a[i] mod 2<>0 then
      if not minset then
        begin
          minset:=true;
          min:=a[i];
        end
      else if a[i]<min then
        min:=a[i];
  writeln('Min nechetniy element=',min);
end.

if (arr[i] mod 2<>0) and (arr[i]<arr[min]) then