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.

Answer 2

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

pascalCopy code
program CountOnes;

const
  ListSize = 100; // Размер списка случайных чисел

type
  IntList = array[1..ListSize] of Integer; // Определение типа списка

// Функция для подсчета количества элементов списка, оканчивающихся цифрой "1"
function CountOnesInList(list: IntList): Integer;
var
  i, count: Integer;
begin
  count := 0;
  
  for i := 1 to ListSize do
  begin
    if list[i] mod 10 = 1 then
      count := count + 1;
  end;
  
  CountOnesInList := count;
end;

var
  myList: IntList;
  i: Integer;

begin
  // Инициализация генератора случайных чисел
  Randomize;
  
  // Заполнение списка случайными числами
  for i := 1 to ListSize do
  begin
    myList[i] := Random(100); // Генерация случайного числа от 0 до 99
  end;
  
  // Вызов функции для подсчета количества элементов списка, оканчивающихся цифрой "1"
  writeln('Количество элементов, оканчивающихся на 1: ', CountOnesInList(myList));
end.

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