1. Половина детей любит пирожное 52/2=26
2. Мы знаем, что 20 детей любит либо пирожное, либо пирожное и мороженое. Прибавим их к тем кто любит только пирожное 20+26=46
3. Оталось из всего количества детей вычесть полученный результат 52-46=6
<span>Ответ: 6 - детей любит мороженое</span>
Набираем в В
переливаем 2 раза в А
набираем снова В
<span>и еще 2 в А</span>
Const nx=20;mx=20;var i,j,n,m:integer; D:array[1..mx,1..nx] of integer;p:double;
begin
write('Введите размер массива m и n');Readln(m,n);p:=1;
for i:=1 to m do begin
for j:=1 to n do begin
Readln(D[i,j]);end;end;writeln;
for i:=1 to m do begin
for j:=1 to n do begin
write(D[i,j]:4);end;writeln;end;writeln;
for i:=1 to m do begin
for j:=1 to n do begin
if i = n-j+1 then begin write(D[i,j]:4); p:= p * D[i,j];end
else write(' ':4);end;writeln;end;writeln;
for i:=1 to m do begin
for j:=1 to n do begin if i =j then begin write(D[i,j]:4); p:= p * D[i,j];end
else write(' ':4);end;writeln;end;writeln;
write('произведение диагональных элементов массива =',p);<span>end.</span>