Question

Дан массив из 20 чисел заданных случайным образом. Найти: наименьшее нечетное число и его номер. Вывести на экран исходный массив, наименьший нечетный и написать блок схему.
Pascal ABC.

Answer 1

var 
 a: array[1..20] of integer; 
 i,x,x1,min,min1: integer;
begin 
 min:=32767; 
 randomize;  
 for i:=1 to 20 do 
 a[i]:=random(200)-100; //Заполнение массива 
 writeln('Исходный массив: ');  
 for i:=1 to 20 do 
 begin 
  write(' ',a[i],' '); 
  if ((a[i]<min) and (a[i] mod 2 <>0)) then  
   begin 
    min:=a[i]; 
    min1:=min; 
    x:=i; 
   end; 
 end; 
 writeln(); 
 write('Позиция: ',x,', значение: ',min1);
end.