{Файл: prog_5_3.pas
Задача:
  Дан линейный массив из N целых чисел (N=10). Найти 
  наибольшее значение среди нечетных элементов или сообщить,
  что таковых нет.
Автор:
  Башмаков Максим Дмитриевич, ИТ-11
Дата:
  3,11,2015}
 
const
  N = 10;
  
var
  a     :array[1..N] of integer;
  i     : integer;
 
  max   : integer;
  
begin

  {Заполнение массива а случайными числами}
  randomize;
  for i:=1 to N do
    a[i]:=random(100);
  
  {Вывод массива a на экран}
  writeln('Массив');
  for i:=1 to N do
    write(a[i]:6);
  writeln;
  
  {Нахождение наибольшего нечетного элемента массива}
 
  max:=0;
  for i:=2 to N do
     if a[i] mod 2 <> 0 then 
      begin
             
       if a[i] > max then
       max:=a[i];
  end;
  {Вывод ответа}
  if max <> 0 then
  begin
   
    
    writeln('наибольшее среди нечетных элементов=',max);
  end
  else
    writeln('В массиве нет нечетных элементов.');
end.