X Циклы. Урок 1 Определи количество различных циклов в игровой среде программирования Scratch. 4 2 1 - id2028017620230530 от sidorova123441 30.05.2023 13:54

Question

Информатика: X Циклы. Урок 1 Определи количество различных циклов в игровой среде программирования Scratch. 4 2 1 3 Проверить

sidorova123441 · Accepted Answer

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

begin
var V:=MatrRandom(7,7,-15,15);v.Println;
var com:= V.Row(2).Aggregate(BigInteger(1),(x,y)->(x*y));
Writeln('Произведение эл-в 3ей строки = ', com);
var cnt := 0;
Foreach var x in V.Row(2) do
if x > com then inc(cnt);
Writeln('Количество элементов, больших чем это произведение = ', cnt);
Writeln('Максимальный элемент 3го столбца = ', V.Col(2).Max);
end.

Пример:
    2 -4 -15 10 -1   2   6
15 -8 11   5 14 10 15
   0 15 -10 13 -8 -13 14
14   6 13 -10   9   6 -12
-14   1   8 -9   1 -12 12
15   9 10 -7 -14   6 -3
   9   9 -1 -14   1   1   3
Произведение эл-в 3ей строки = 0
Количество элементов, больших чем это произведение = 3
Максимальный элемент 3го столбца = 13

Правил

X Циклы. Урок 1 Определи количество различных циклов в игровой среде программирования Scratch. 4 2 1 3 Проверить

MOGZ ответил