ответьте. в детском саду 52 ребёнка. каждый из них любит конфеты или мороженное. половина детей любят - id935423320210613 от Цωετοζεκ 13.06.2021 01:49

Question

Информатика: ответьте. в детском саду 52 ребёнка. каждый из них любит конфеты или мороженное. половина детей любят конфеты а 20 человек конфеты и мороженное. сколько детей любит мороженное сколько детей любят только мороженое кто нормально ответит на таво подпишусь

Цωετοζεκ · Accepted Answer

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
Writeln('*** Исходный массив ***');
var c:=MatrRandom(3,5,-9,9);
c.Println(4); Writeln(4*c.ColCount*'-');
Writeln('Произведение элементов: ',
      c.ElementsByRow.Aggregate(int64(1),(x,y)->x*y));
Writeln('*** Массив-результат ***');
c.Transform(t->t*t);
for var i:=0 to c.RowCount-1 do c[i,i]:=1;
c.Println(4)
end.

Пример
*** Исходный массив ***
-7 -3   4 -1 -5
   9   1   9   2   4
-3 -3 -1 -4 -8

Произведение элементов: -78382080
*** Массив-результат ***
   1   9 16   1 25
81   1 81   4 16
   9   9   1 16 64

MOGZ ответил