Задан одномерный числовой массив размерностью n элементов. найти наименьший нечетный элемент.

Const n = 20; var a: array[1..n] of integer;       i,k,minel: integer; begin //заполнение массива  //и вывод массива на экран   randomize;   writeln('элементы массива: ');   for i: =1 to n do   begin     a[i]: =random(50)-30;     write(a[i],' ');   end;   writeln; //обработка массива и вывод на экран   minel: =a[1];   for i: =2 to n do   if (a[i]< minel) and (abs(a[i]) mod 2 > 0) then    begin     minel: =a[i];     k: =i;   end;   writeln('номер элемента: ',k,'   значение: ',minel); end.

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.

1 кбайт=1024 байта

1 байт=8 бит

81920/8=10240 байт

10240/1024=10 кбайт