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