Заполнить двумерный массив N ×N случайными числами от 1 до 5 И найти произведение четных элементов массива - id1858734720210212 от only10up 12.02.2021 18:47

Question

Информатика: Заполнить двумерный массив N ×N случайными числами от 1 до 5 И найти произведение четных элементов массива Выполнить работу в обычном паскале!

only10up · Accepted Answer

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

function sn(n:integer):integer; // сумма цифр числа
begin
n:=Abs(n);
Result:=0;
while n>0 do begin
    Result+=n mod 10;
    n:=n div 10
    end
end;

begin
var (n,a,b):=ReadInteger3('Введите n,a,b через пробел:');
var m:=ArrRandom(n,a,b); m.Println;
var k:=ReadInteger('k=');
Writeln('Найдено чисел: ',m.Where(t->sn(t)=k).Count)
end.

Пример
Введите n,a,b через пробел: 15 -50 60
43 2 42 -26 -34 57 45 44 29 -41 -4 1 -17 38 -19
k= 7
Найдено чисел: 2

Заполнить двумерный массив N ×N случайными числами от 1 до 5 И найти произведение четных элементов массива Выполнить работу в обычном паскале!

MOGZ ответил