Question

Паскаль : узнать сколько в двумерном масиве разних чисел ( то есть те числа которые не повторяются ) . Помогите пожалуйста

Answer 1

===== PascalABC.NET =====

begin

 var (m, n) := ReadInteger2('Число строк и столбцов:');

 var a := MatrRandom(m, n, 10, 99);

 a.Println(3);

 var k := a.ElementsByRow.Distinct.Count;

 Println('Количество различных элементов:', k)

end.

Answer 2

Для нахождения количества различных чисел в двумерном массиве на языке программирования Pascal, вы можете использовать следующий код:

pascalCopy code
program CountUniqueNumbers;
var
  arr: array of array of Integer;
  uniqueNumbers: array of Integer;
  i, j, k, count: Integer;
  isUnique: Boolean;
begin
  // Заполните двумерный массив данными

  // Инициализируйте счетчик уникальных чисел
  count := 0;

  // Пройдитесь по всем элементам массива
  for i := 0 to High(arr) do
  begin
    for j := 0 to High(arr[i]) do
    begin
      isUnique := True;

      // Проверьте, является ли текущее число уникальным
      for k := 0 to High(uniqueNumbers) do
      begin
        if arr[i][j] = uniqueNumbers[k] then
        begin
          isUnique := False;
          Break;
        end;
      end;

      // Если число уникальное, добавьте его в массив уникальных чисел и увеличьте счетчик
      if isUnique then
      begin
        SetLength(uniqueNumbers, Length(uniqueNumbers) + 1);
        uniqueNumbers[High(uniqueNumbers)] := arr[i][j];
        Inc(count);
      end;
    end;
  end;

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

Этот код создает двумерный массив arr, затем проходится по всем элементам массива, подсчитывая количество уникальных чисел и сохраняя их в массив uniqueNumbers. В конце выполнения кода выводится количество уникальных чисел.

Вы должны заполнить массив arr данными перед запуском программы.