Question

Срочно, нужно написать программу на языке Pascal.
Составить программу, содержащую функцию подсчета количества элементов списка
случайных целых чисел, оканчивающихся цифрой "1".

Answer 1

// PascalANC.NET

function Count1(L: List<integer>) :=

   L.Count(p -> Abs(p) mod 10 = 1);

begin

 var n := ReadInteger('Укажите длину списка:');

 var L := SeqRandomInteger(n, -99, 99).ToList;

 L.Println;

 Print(Count1(L))

end.