Это всё язык Паскаль 1. Найти произведение элементов массива, меньших числа 7. 2. Найти...

Question

Это всё язык Паскаль 1. Найти произведение элементов массива, меньших числа 7. 2. Найти количество тех элементов массива, значения которых положительны и не превосходят заданного числа D. 3. Дан целочисленный массив T(10), элементы которого вводятся с клавиатуры. Найдите индекс элемента в массиве, равного 13. Если такого числа в массиве нет, то выведите на экран соответствующее сообщение.

Answer 1

Ответ:

PascalABC.NET

#1

Begin

 var A := ArrRandom(20, -99, 99);

 A.Where(p -> p < 7).Aggregate(BigInteger.One, (p, q) -> p, q).Println;

end.

#2

Begin

 var A := ArrRandom(20, -99, 99);

 var D := ReadInteger();

 A.Where(p -> (p <= D) and (p>0)).Count.Print;

end.

#3

Begin

 var T := ReadArrInteger(10);

 var f := T.IndexOf(13);

 if f <> -1 then print(f) else print('Такого нет');

end.

Объяснение:

Программы написаны на языке PascalABC.NET v3.5.1; Версия .NET Framework - 4.7.1