Составить заполнения массива случайными числами в диапазоне 0-100 и определяет количество четных элементов массива.​

// pascalabc.net 3.1, сборка 1239 от 08.05.2016 begin   var b: array[1..6,1..6] of integer: =(       (19,21,23,25,27,,59,61,63,65,31),       (55,81,83,85,67,,79,89,87,69,35),       (51,77,75,73,71,,47,45,43,41,39));   var a: array[1..6,1..6] of integer;     var k: =2;   var k0,k1: integer;   for var i: =1 to 6 do begin       for var j: =1 to 6 do print(b[i,j]);       writeln       end;   writeln;   repeat       k0: =0;       k1: =0;       writeln('k=',k);       for var i: =1 to 6 do begin           for var j: =1 to 6 do begin               if (b[i,j] mod k) mod 2=0 then                   begin a[i,j]: =1; inc(k1) end               else begin a[i,j]: =0; inc(k0) end;               print(a[i,j])               end;           writeln           end;       writeln('k0=',k0,', k1=',k1);       if k0< > k1 then inc(k)   until k0=k1;   writeln(newline,'k=',k) end. решение 19 21 23 25 27 29 57 59 61 63 65 31 55 81 83 85 67 33 53 79 89 87 69 35 51 77 75 73 71 37 49 47 45 43 41 39 k=2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 k0=36, k1=0 k=3 0 1 1 0 1 1 1 1 0 1 1 0 0 1 1 0 0 1 1 0 1 1 1 1 1 1 1 0 1 0 0 1 1 0 1 1 k0=12, k1=24 k=4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 k0=36, k1=0 k=5 1 0 0 1 1 1 1 1 0 0 1 0 1 0 0 1 1 0 0 1 1 1 1 1 0 1 1 0 0 1 1 1 1 0 0 1 k0=14, k1=22 k=6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 k0=36, k1=0 k=7 0 1 1 1 1 0 0 0 0 1 1 0 1 1 1 0 1 0 1 1 0 0 1 1 1 1 0 0 0 1 1 0 0 0 1 1 k0=16, k1=20 k=8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 k0=36, k1=0 k=9 0 0 0 0 1 1 0 0 0 1 1 1 0 1 1 1 1 1 1 0 1 1 1 1 1 0 0 0 1 0 1 1 1 0 0 0 k0=16, k1=20 k=10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 k0=36, k1=0 k=11 1 1 0 0 0 0 1 1 1 1 1 0 1 1 1 1 0 1 0 1 0 1 0 1 0 1 0 0 0 1 0 0 0 1 1 1 k0=16, k1=20 k=12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 k0=36, k1=0 k=13 1 1 1 1 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 1 1 1 1 1 0 1 1 1 1 1 1 k0=18, k1=18 k=13 ответ: 13