Напишите программу, которая в последовательности натуральных - вопрос №12426800 от messi114 24.01.2021 02:58

Question

Информатика: Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – сумму чисел, кратных 4. Входные 4; 10; 89; 16; 21; Выходные 20

messi114 · 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

Правил