Валя любить іриски і не любить шоколадні цукерки.у вазі 7 ірисок і 4 шоколадні цукерки.скільки потрібно дістати цукерок не дивлячись щоб серед них точно була хоча б одна іриска?

5цукерок

Const  nx = 20; mx = 20; var  x: array[1..nx, 1..mx] of integer;     i, j, n,m,q,r: integer; k: boolean;   b: array[0..nx] of integer; beginwriteln('введите число строк n '); read(n); writeln('введите число столбцов m '); read(m); b[0]: =1; if n > = m thenfor i : = 1 to n do beginb[i]: =b[i-1]*2; q: =n; endelsefor i : = 1 to m do beginb[i]: =b[i-1]*2; q: =m; end; write(b: 3);   randomize; writeln;   writeln('исходный массив');   for i : = 1 to n do begin    for j : = 1 to m do begin      x[i, j]: =random(10);       write(x[i, j]: 4);       end;     writeln;   end;   writeln; writeln;   for i : = 1 to n do begin    for j : = 1 to m do begin    for r: =0 to q do    if (i = b[r])or (j = b[r]) then k: = true;       if k = true then write(x[i, j]: 4)      else write('  ');       k: =false;     end;     writeln;   end;   end.

Pascalabc.net 3.3.5, сборка 1650 от 01.04.2018 внимание! если программа не работает, обновите версию! procedure bubblesort(a: array of integer;       descending: boolean: =false; // нужна ли сортировка по невозрастанию       u: integer: =-1; // начальный индекс       v: integer: =-1); // конечный индекс // простая пузырьковая сортировка элементов с индексами с u по v begin   // обеспечим корректность параметров u и v   if u< 0 then u: =0;   var n: =a.length;   if (v< 0) or (v> =n) then v: =n-1;   if u> v then swap(u,v)   else if u=v then exit;   // собственно, сортировка   if descending then begin // по невозрастанию       for var i: =v-1 downto u do           for var j: =u to i do               if a[j]< a[j+1] then swap(a[j],a[j+1])       end   else begin       for var i: =v-1 downto u do // по неубыванию           for var j: =u to i do               if a[j]> a[j+1] then swap(a[j],a[j+1])       end end; begin   write(': ');   var a: =arrrandom;   a.println;   var (imin,imax): =(a.indexmin,a.indexmax);   var b: =copy(a);   write('1: '); bubblesort(b,false,0,imax); b.println;   b: =copy(a);   write('2: '); bubblesort(b,false,imin); b.println;   b: =copy(a);   write('3: '); bubblesort(b,true,imax,imin); b.println end. пример   : 70 61 10 72 17 84 19 35 83 47 1: 10 17 61 70 72 84 19 35 83 47 2: 70 61 10 17 19 35 47 72 83 84 3: 70 61 84 72 17 10 19 35 83 47