Сделать только пункт б)заранее ! ​

1)const n=5;   var a: array[1..n] of byte; k,i: integer; beginwriteln('введите числа , для изменения кол-ва вводимых чисел изменить в 1-ой строчке с 5на любое значение > 2 '); for i: =1 to n do readln(a[i]); for i: =1 to n doif a[i] div 10 > a[i] mod 10 then inc(k);   write(k); end. 2)const n=5;   var a,b: array[1..n] of byte; sr,max,k,i: integer; beginwriteln('для изменения кол-ва чисел изменить в 1-ой строчке с 5на любое значение > 2 '); for i: =1 to n do a[i]: =random(100); for i: =1 to n do b[i]: =a[i]; for i: =1 to n do max: =max+a[i]; sr: =max div n; writeln('начальный массив'); for i: =1 to n do writeln(a[i]); write('сред арифм= ',sr); writeln; for i: =1 to n do if sr> b[i] then b[i]: =0; for i: =1 to n do writeln(b[i]); end.

Желтые      красные    зеленые   6                  6              0   8                  0              4   7                  3              2 вот программка на паскале: uses crt; var g, k, z: integer; begin   clrscr;   for g: =0 to 12 do     for k: =0 to 12 do           for z: =0 to 12 do                   begin                         if (g+k+z=12)  and (0.5*g+1.5*k+2*z=12) then                               writeln (g,' ',k, ' ', z);                   end;   readln; end. вывод: можно вообще не брать красные или зеленые шары. если брать шары всех цветов, то ответ у один 7   3   2