Question

Дан массив из N элементов определить сколько элементов массива начинаются и кончаются одной и той же цифрой (Паскаль)

Answer 1

begin

 var n := ReadInteger();

 var a := ReadArrInteger(n);

 var Count := 0;

 foreach var x in a do

 begin

   var s := x.ToString;

   if s[1] = s[s.Length] then Count += 1

 end;

 Print(Count)

end.

Answer 2

Для решения этой задачи на языке программирования Паскаль, вы можете использовать следующий код. В этом коде предполагается, что у вас есть массив arr, содержащий N элементов, и вы хотите определить, сколько элементов начинаются и заканчиваются одной и той же цифрой:

pascalCopy code
program CountElementsWithSameFirstAndLastDigit;

var
  arr: array of Integer;
  N, count: Integer;
  i, num, firstDigit, lastDigit: Integer;

begin
  writeln('Введите размер массива: ');
  readln(N);
  
  SetLength(arr, N);

  writeln('Введите элементы массива:');
  for i := 0 to N - 1 do
  begin
    readln(arr[i]);
  end;

  count := 0;

  for i := 0 to N - 1 do
  begin
    num := arr[i];
    lastDigit := num mod 10;
    
    // Найдем первую цифру элемента num
    while num >= 10 do
    begin
      num := num div 10;
    end;
    firstDigit := num;
    
    // Проверим, начинается ли и заканчивается ли число одной и той же цифрой
    if firstDigit = lastDigit then
    begin
      count := count + 1;
    end;
  end;

  writeln('Количество элементов, начинающихся и заканчивающихся одной и той же цифрой: ', count);
end.

Этот код сначала запрашивает размер массива и элементы массива у пользователя, а затем считает, сколько элементов начинаются и заканчиваются одной и той же цифрой.