Срочно, нужно написать программу ** языке Pascal. Составить программу, содержащую...

Question

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

Comments

Помоги пожалуйста

---

Паскаль АВС: Процедура и функция. Создать файл - сводная экзаменационнная ведомость. Каждая строка ведомости состоит из фамилии студента и 3-х оценок. В новый файл переписать фамилии студентов, учащихся на 4 и 5.

Answer 1

// PascalANC.NET

function Count1(L: List) :=

   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.