Question

Паскаль Дан массив целых чисел, размер массива не превышает 1000 чисел. Напишите программу, которая вводит в начале размер массива, затем сами элементы. Далее программа подсчитывает количество элементов, у которых все цифры одинаковые.

Answer 1

Ответ:

package com.company;

import java.util.Arrays;

import java.util.Scanner;

public class Main {

   public static void main(String[] args) {

       Scanner sc = new Scanner(System.in);

       System.out.print("Введите размер массива: ");

       int size = sc.nextInt();

       int[] myArray = new int[size];

       System.out.print("Заполните элементы массива: ");

       for(int i=0; i<size; i++) {

           myArray[i] = sc.nextInt();

       }

       System.out.print("Одинаковые элементы: ");

       for(int i=0; i<myArray.length; i++) {

           for (int j=i+1; j<myArray.length; j++) {

               if(myArray[i] == myArray[j]) {

                   System.out.println(j);

               }

           }

       }

   }

}

Объяснение:

Я использую язык программирования java, думаю переписать на нужный вам вы сможете.

Answer 2

Конечно! Вот пример программы на языке Pascal, который выполняет указанную задачу:

pascalCopy code
program CountSameDigits;
var
  arr: array[1..1000] of Integer;
  size, i, num, count, digit: Integer;
begin
  WriteLn('Введите размер массива:');
  ReadLn(size);

  WriteLn('Введите элементы массива:');
  for i := 1 to size do
    ReadLn(arr[i]);

  count := 0;
  for i := 1 to size do
  begin
    num := arr[i];
    digit := num mod 10;
    num := num div 10;

    while (num <> 0) and (num mod 10 = digit) do
      num := num div 10;

    if num = 0 then
      count := count + 1;
  end;

  WriteLn('Количество элементов с одинаковыми цифрами: ', count);
end.

Программа сначала запрашивает у пользователя размер массива, а затем последовательно вводит элементы массива. Затем она проходит по каждому элементу массива и проверяет, имеют ли все цифры в числе одинаковое значение. Если это так, то счетчик count увеличивается на 1. В конце программа выводит количество элементов с одинаковыми цифрами.

Обратите внимание, что данная программа предполагает, что все введенные элементы массива являются целыми числами. Также она не выполняет проверку на корректность введенных данных, поэтому следует быть осторожным при вводе элементов массива.