НАДО СДАТЬ ДОЛГ ИНФОРМАТИКА 8 КЛАСС

Желтые      Красные    Зеленые
  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

Using System;
namespace СиШарп
{
    class Program
    {
        static void Main(string[] args)
        {
            Console.Write("N = ");
            int N = int.Parse(Console.ReadLine());
            Console.Write("A({0}):",N);
            int[] A = new int[N];
            Random RND = new Random();
            for (int i = 0; i < N; i++)
            {
                A[i] = RND.Next(-N,N+1);
                Console.Write(" {0}",A[i]);
            }
            for (int i = N - 1; i >= 0 && A[i] < 0; i--) ;
            int L = 0, j = N;
            while (j > 0)
                if (A[--j] > 0) L++;
                else
                    if (L < 2) L = 0;
                    else break;
            for(int i = j + L + 1; i < N; i++)
                A[i - L] = A[i];
            Console.Write("\nA({0}):",N-L);
            for (int i = 0; i < N - L; i++)
                Console.Write(" {0}",A[i]);
            Console.ReadKey();
        }
    }
}