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

льоха7 льоха7    1   04.06.2020 17:28    2

Ответы
ilyaneizvestno10 ilyaneizvestno10  15.10.2020 13:04

// 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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика