Растения, семена которых покрыты тонкими белыми волокнами.

Хлопчатник (хлопок). 

Var a, b, c, n, i : integer;     s: array [1..30] of integer; begin     for i: =1 to 30 do          read (s[i]);     for i: =1 to 30 do          if s[i] div 1000 = 0 then a: =s[i];     if a=0 then write ('no') else          for i: =1 to 30 do            if (s[i] div 1000 = 0) and (a> s[i]) then a: =s[i];     write (a); end.

Var       j: array[1..32,1..32] of integer;       i, j, s: integer; begin //заводим массив       for i: =1 to 32 do             for j: =1 to 32 do             begin                   writeln("введите j[",i,",",j,"]");                   readln(j[i,j]);             end; //сумма всех чисел       s: =0;       for i: =1 to 32 do             for j: =1 to 32 do             s: =s +j[i,j];       writeln("сумма всех чисел = ",s); s = 0; //минимальное четное число       for i: =1 to 32 do             for j: =1 to 32 do             if (j[i,j] mod 2 = 0) and (j[i,j]< s) then s: = j[i,j];       writeln("минимальное четное число = ",s); s: =0; //кол-во отрицательных нечетных чисел       for i: =1 to 32 do             for j: =1 to 32 do             if (j[i,j] mod 2 < > 0) and (j[i,j] < 0)then s: = s+1;       writeln("кол-во отрицательных нечетных чисел = ",s); s: =0; //сумма отрицательных нечетных чисел       for i: =1 to 32 do             for j: =1 to 32 do             if (j[i,j] mod 2 < > 0) and (j[i,j] < 0)then s: = s+j[i,j];       writeln("сумма отрицательных нечетных чисел = ",s); end;