52 / 2 = 26 детей любит конфеты. остальные 26 гарантировано любят мороженое. + 20 из тех, кто любит конфеты, так же любит мороженое.
мороженое любят 26 + 20 = 46 детей
только мороженое любят 26 детей.
<em>// PascalABC.NET 3.2, сборка 1341 от 20.11.2016</em>
begin
var a:=ArrRandom(7,-20,20); a.Println;
a:=a.Select(x->abs(x)).ToArray; a.Println
end.
Пример
-9 17 6 1 20 9 -14
9 17 6 1 20 9 14
Var n,i,ks,kp,h:integer;
begin;
kp:=1;
readln(n);
for i:=1 to n do
begin;
readln(h);
kp:=kp*h;
ks:=ks+h;
end;
writeln('Сумма:',ks);
write('Произведение:',kp);
end.
Функция книги - хранение данных => объём хранимой в ней информации, т.е. память
var x:real;
c:char;
begin
readln(c);
readln(x);
if c='1' then begin
readln(c);
if c='s' then writeln(sin(x));
if c='c' then writeln(cos(x));
if c='t' then writeln(sin(x)/cos(x));
end else
if c='2' then
writeln(sqr(x))
else
if c='3' then
writeln(sqrt(x));
end.