Всаду у лены растет много цветов. известно, что вчера распустилось на 11 цветов меньше, чем позавчера, и на 32 цветка меньше, чем позавчера и сегодня вместе. сколько цветов распустилось у лены в саду сегодня?

Если вчера распустилось на 11 цветов меньше чем позавчера и на 32 цветка меньше чем позавчера и сегодня вместе это знасит что сегодня распустился 21 цветок (32-11)

1 в - плюшка и кофе.

1 в - плюшка и кофе.2 в - плюшка и сок.

1 в - плюшка и кофе.2 в - плюшка и сок.3 в - плюшка и кефир.

1 в - плюшка и кофе.2 в - плюшка и сок.3 в - плюшка и кефир.4 в - плюшка и чай.

1 в - плюшка и кофе.2 в - плюшка и сок.3 в - плюшка и кефир.4 в - плюшка и чай.5 в - бутер и чай.

1 в - плюшка и кофе.2 в - плюшка и сок.3 в - плюшка и кефир.4 в - плюшка и чай.5 в - бутер и чай.6 в - бутер и кефир.

1 в - плюшка и кофе.2 в - плюшка и сок.3 в - плюшка и кефир.4 в - плюшка и чай.5 в - бутер и чай.6 в - бутер и кефир.7 в - бутер и сок.

1 в - плюшка и кофе.2 в - плюшка и сок.3 в - плюшка и кефир.4 в - плюшка и чай.5 в - бутер и чай.6 в - бутер и кефир.7 в - бутер и сок.8 в - бутер и кофе.

Вэтой проге 1 и 2 program p1; uses crt; const n = 10; var a: array [1..n] of integer; i,p,c: integer; k,sr: real; begin read(c);   for i : = 1 to n do begin   a[i]: = random(21)-10;   write(a[i]: 4);   end;   writeln;   p: =1;   sr: =1;   for i: =1 to n do begin     if (a[i]mod 2 = 0) and (a[i]< > 0) then begin       p: =p*a[i];       end;       if c< =a[i] then begin       sr: =a[i]*sr;       k: =k+1;       end;             end;       sr: =sr/k;     writeln('произведение чётных : ',p);     writeln('среднее арифметическое ',sr: 5: 2); end. только всё равно проверь!