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

program Zadanie3;
uses crt;
  type  mass=array [1..100] of integer;
var i,k:byte;                            {Vvod dannuh}
    a:mass;
    punkt1,a1,n1:string;
    punkt,x,h,code,n:integer;
    s,max:real;
procedure vvod (var a:mass;var n:integer);
begin
 repeat
 write ('Введите количество элементов массива ');
 readln(n1);
 val (n1,n,code);
  if (code<>0) then writeln('Повторите ввод');
  until (code=0);
  for i:=1 to n do
begin
 repeat
  write ('a[',i,']=');
  readln(a1);
  val(a1,a[i],code);
  if (code<>0) then writeln('Повторите ввод');
  until (code=0);
end;
end;
procedure print (var a:mass);                        {pechat dannuh}
begin
 for i:=1 to n do
 write (a[i], ' ');
end;
 
procedure z1;                             {Procedura 1}
begin
clrscr;
 vvod(a,n);
 writeln;
 print(a);
 writeln;
 writeln;
 max:=a[1];
   for i:=2 to n do
   if (i div 2=0)  then max:=a[i];
   if (i mod 2=0) then writeln('net max')
   else writeln('max = ' ,max:5:2);
end;
 
procedure z2;                              {Procedura 2}
begin
 clrscr;
 vvod(a,n);
 writeln;
 print (a);
 writeln;
 writeln;
  h:=0;
  i:=2;
  if (a[i]>=0) and (i<=n) then h:=h+a[i];
  for i:=1 to n do
  inc(h,a[i]);
end;
 
procedure z3;                               {Procedura 3}
begin
 clrscr;
 vvod (a,n);
 writeln;
 print (a);
 writeln;
 writeln;
 s:=1;
  for i:=1 to n do
  if (a[i] mod 3=0)and (a[i]<>0) then s:=s*a[i];
  writeln('s= ',s:3);
end;
 
procedure z4;                                {Procedura 4}
begin
 clrscr;
 vvod (a,n);
 writeln;
 print (a);
 writeln;
 writeln;
  for i:=1 to n+1 do
  if a[i]>a[i+1]
 then
 begin
 x:= a[i];
 a[i]:=a[i+1];
 a[i+1]:=x
 end;
 for i:=1 to n do
 writeln('a[',i,'] = ',a[i]:3);
end;
 
begin                            {punkt menu}
repeat
 clrscr;
  writeln('Введите пункт меню');
   writeln('1-нахождение в массиве максимального элемента среди всех нечётных елементов и его номер в массиве.');
   writeln('2-определение суммы элементов от второго отрицательного и до конца.');
   writeln('3-нахождение произведения всех кратным трём елементов массива.');
   writeln('4-расположить массив в порядке возрастания.');
   readln(punkt1);
   val (punkt1,punkt,code);
    if (code<>0) then writeln('Повторите ввод');
    if (punkt<1) then writeln('Повторите ввод');
    if (punkt>4) then writeln('Повторите ввод');
   case punkt of
   1:z1;
   2:z2;
   3:z3;
   4:z4;
   end;
 until (code=0);
  readkey;
end.