Дана матрица А(M,N) {варианты 1-4, 7-15 }

[Esmadjin]

Составить программу на pascalABC.NET
Дана матрица А(M,N) Составить вектор из номеров столбцов матрицы, где есть хотя бы одно число Фибоначчи.

[dimagl90]

Esmadjin,

program FibonacciColumns;

uses System;

var
  A: array of array of Integer;
  FibonacciSet: set of Integer;
  FibonacciNumbers: array of Integer;
  M, N, i, j: Integer;
  Columns: array of Integer;
  ColCount: Integer;

// Функция для проверки, является ли число Фибоначчи
function IsFibonacci(num: Integer): Boolean;
var
  a, b, temp: Integer;
begin
  a := 0;
  b := 1;
  while a <= num do
  begin
    if a = num then
      Exit(True);
    temp := a;
    a := b;
    b := temp + b;
  end;
  Exit(False);
end;

// Процедура для создания матрицы и заполнения её значениями
procedure CreateMatrix(M, N: Integer);
var
  i, j: Integer;
begin
  SetLength(A, M, N);
  Randomize;
  for i := 0 to M - 1 do
    for j := 0 to N - 1 do
      A[i][j] := Random(100); // Заполнение случайными числами от 0 до 99
end;

// Процедура для поиска столбцов с числами Фибоначчи
procedure FindFibonacciColumns;
var
  i, j: Integer;
  isFibonacciColumn: Boolean;
begin
  ColCount := 0;
  SetLength(Columns, N); // Максимальное количество столбцов
  
  for j := 0 to N - 1 do
  begin
    isFibonacciColumn := False;
    for i := 0 to M - 1 do
    begin
      if IsFibonacci(A[i][j]) then
      begin
        isFibonacciColumn := True;
        Break;
      end;
    end;
    if isFibonacciColumn then
    begin
      Columns[ColCount] := j + 1; // Номер столбца (с 1)
      Inc(ColCount);
    end;
  end;
  
  // Сокращаем массив до фактического количества
  SetLength(Columns, ColCount);
end;

begin
  Write('Введите количество строк M: ');
  ReadLn(M);
  Write('Введите количество столбцов N: ');
  ReadLn(N);
  
  CreateMatrix(M, N);
  
  FindFibonacciColumns;

  WriteLn('Номера столбцов, содержащих хотя бы одно число Фибоначчи:');
  for i := 0 to ColCount - 1 do
    Write(Columns[i], ' ');
  WriteLn;
end.