Работая в колхозном саду, школьники собрали 22 ящика фруктов; в одних были яблоки, в других- груши, в третьих - сливы. можно ли утверждать, что имеется по крайней мере 8 ящиков одним из указанных видов фруктов? решите мне вы меня

если предположить что школьники собрали по 7 ящиков яблок, груш и слив

то 7*3 = 21 ящик, а у нас всего 22 ящика

то есть 1 ящик еще остался итого 7+1=8 ящиков - какого то одного вида фрукта.

7 ящиков яблок, 7 ящиков груш и 8 ящиков слив.

 

1. const   n=30; var   a,b: array[1..n] of integer;   i,j,k: integer; begin   { самое сложное - создать такой массив,       где положительные и отрицательные элементы будут случайно       перемешаны и их будет по n/2.       если организовать ввод с клавиатуры, то это гораздо проще.   }   randomize;   { инициализация "флажком" - значением 1000 }   for i: =1 to n do a[i]: =1000;   { сначала генерируем n/2 случайных отрицательных на случайных местах }   for i: =1 to (n div 2) do   begin       k: =random(50)-50; { случайное отрицательное значение }       { а теперь ищем случайное свободное место }       repeat           j: =random(30)+1       until a[j]=1000;       a[j]: =k   end;   { теперь осталось сгенерировать n/2 случайных положительных чисел       и разместить их на свободных местах }   for i: =1 to (n div 2) do   begin       k: =random(50)+1; { случайное положительное значение }       { а теперь ищем свободное место }       j: =0;       repeat           inc(j)       until a[j]=1000;       a[j]: =k   end;   { и только отсюда начинается собственно }   writeln('исходный массив');   for i: =1 to n do write(a[i]: 4);   writeln;   { j - количество обработанных отрицательных,       k - количество положительных,       а массив строим так, что отрицательные элементы на нечетных местах }   if a[1]< 0 then begin b[1]: =a[1]; j: =1; k: =0 end   else begin b[2]: =a[1]; j: =0; k: =1 end;   for i: =2 to n do       if a[i]< 0 then       begin inc(j); b[2*j-1]: =a[i] end       else begin inc(k); b[2*k]: =a[i] end;   writeln('результирующий массив');   for i: =1 to n do write(b[i]: 4);   writeln end. тестовое решение: исходный массив   43  44  34  21  14 -26  32  35 -25  -8  42 -35 -37  12  45 -25  31    8 -16  -5    8 -25 -19 -15 -27 -16  12  26 -14 -41 результирующий массив   -26  43 -25  44  -8  34 -35  21 -37  14 -25  32 -16  35  -5  42 -25  12 -19  45 -15  31 -27    8 -16    8 -14  12 -41  26

Const   n=5; var   x: array[1..n, 1..n] of integer;   i,j,k: integer; begin   randomize;   writeln('исходный массив');   for i: =1 to n do   begin       for j: =1 to n do       begin           x[i,j]: =random(50)+1;           write(x[i,j]: 4)       end;       writeln   end;   k: =0; i: =2;   while i< =n do begin       for j: =1 to n do           if x[i,j] mod 2=0 then inc(k);       i: =i+2   end;   writeln('количество четных элементов в четных строках равно ',k) end. тестовое решение: исходный массив     1  14  23  17  39   27  37  28  28  21   10    6    3  38  22     1  31  27  50  42   16  43  27  16  17 количество четных элементов в четных строках равно 4