Question

Создать и протестировать программу, которая считает количество одинаковых чисел в массиве размерностью 5. В ответе дать именно количество одинаковых чисел.То есть в массиве 1 1 2 4 1 одинаковых чисел 3 шт.lИли в массиве 1 1 4 3 4 одинаковых чисел 4 шт. На языке программирования Pascal

Answer 1

var a: array [1..5] of integer;

i, j , count, sum_count: integer;

repeated : boolean;

begin

   for i := 1 to 5 do

   begin

       write('Введите ', i, '-e число: ');

       readln(a[i]);

   end;

   

   sum_count := 0;

   for i := 1 to 5 do

   begin

       repeated := false;

       for j := 1 to i - 1 do

       begin

           repeated := (a[i] = a[j]);

           if repeated then break;

       end;

       if repeated then continue;

       

       count := 1;

       for j:= i+1 to 5 do

           if (a[i]=a[j]) then

               inc(count);

       if count > 1 then

           sum_count += count;

   end;

   writeln(sum_count);

end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая решает задачу подсчета количества одинаковых чисел в массиве размерности 5:

pascalCopy code
program CountSameNumbers;

const
  ArraySize = 5;

var
  numbers: array[1..ArraySize] of Integer;
  i, j, count: Integer;

begin
  // Ввод чисел в массив
  writeln('Введите ', ArraySize, ' чисел:');
  for i := 1 to ArraySize do
    readln(numbers[i]);

  // Подсчет одинаковых чисел
  count := 0;
  for i := 1 to ArraySize do
  begin
    for j := i + 1 to ArraySize do
    begin
      if numbers[i] = numbers[j] then
      begin
        count := count + 1;
        break; // Чтобы не считать одно и то же число несколько раз
      end;
    end;
  end;

  writeln('Количество одинаковых чисел: ', count);
end.

Скопируйте этот код в среду разработки на Pascal (например, Free Pascal), выполните и следуйте указаниям для ввода чисел в массив. Программа выдаст количество одинаковых чисел в массиве.

Обратите внимание, что этот код решает задачу именно в рамках вашего описания. Если вы хотите подсчитать количество одинаковых чисел среди всех чисел в массиве (а не только одинаковых пар), код будет отличаться.