Question

1. Дан двумерный массив размером 4*6 и заполненный целыми числами с клавиатуры. сформировать одномерный массив каждый элемент которого равен количеству элементов соответствующей строки, больше данного числа. 2. Дан двумерный массив размером n*m, заполненный случайными числами. Определить,есть ли в данном массиве столбец, в котором имеются одинаковые элементы. 3. Заполнить массив размером 7*7 по правилу: 1 1 1 1 1 1 1 0 1 1 1 1 1 0 0 0 1 1 1 0 0 0 0 0 1 0 0 0 0 0 1 1 1 0 0 0 1 1 1 1 1 0 1 1 1 1 1 1 1 В паскале, спасибо)

Answer 1

//PascalABC.NET версия 3.2, сборка 1417
//Если программа не запускается, то обновите версию
begin
    var m := MatrRandom(ReadInteger('n ='), ReadInteger('m ='), 0, 9);
    m.Println();
    
    {1}
    Writeln('количество элементов соответствующей строки');
    var number := ReadInteger('Введите число, для проверки =');
    var a := m.Rows.Select(r -> r.Count(x -> x > number));
    a.Println;
    
    {2}
    Writeln('Определить,есть ли в данном массиве столбец, в котором имеются одинаковые элементы.');
    var b := m.Cols.Select(r -> r.GroupBy(v -> v).Count(g -> g.Count() > 1));
    b.Println;
    Writeln(b.Any(x -> x > 0));
    
    {3}
    Writeln('Заполнить массив');
    var n := 2 * Max(m.RowCount, m.ColCount) div 2 + 1;
    m := MatrGen(n, n, (i, j)-> ((n - 1 - i - j) * (i - j) > 0) ? 0 : 1);
    m.Println();
end.

Answer 2

1. Вот код на Pascal для решения данной задачи:

arduinoCopy code
program Task1;
const
  N = 4;
  M = 6;
var
  arr: array[1..N, 1..M] of integer;
  result: array[1..N] of integer;
  i, j, x, count: integer;
begin
  writeln('Введите элементы массива:');
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      readln(arr[i, j]);
    end;
  end;

  for i := 1 to N do
  begin
    count := 0;
    write('Элементы строки ', i, ' больше числа: ');
    readln(x);
    for j := 1 to M do
    begin
      if arr[i, j] > x then
      begin
        count := count + 1;
      end;
    end;
    result[i] := count;
    writeln(count);
  end;

  writeln('Результат:');
  for i := 1 to N do
  begin
    write(result[i], ' ');
  end;
end.

2. Вот код на Pascal для решения данной задачи:

arduinoCopy code
program Task2;
const
  N = 4;
  M = 6;
var
  arr: array[1..N, 1..M] of integer;
  i, j, k: integer;
  hasDuplicates: boolean;
begin
  writeln('Введите элементы массива:');
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      readln(arr[i, j]);
    end;
  end;

  hasDuplicates := false;
  for j := 1 to M do
  begin
    for i := 1 to N - 1 do
    begin
      for k := i + 1 to N do
      begin
        if arr[i, j] = arr[k, j] then
        begin
          hasDuplicates := true;
          break;
        end;
      end;
      if hasDuplicates then
      begin
        break;
      end;
    end;
    if hasDuplicates then
    begin
      break;
    end;
  end;

  if hasDuplicates then
  begin
    writeln('В данном массиве есть столбец с одинаковыми элементами');
  end
  else
  begin
    writeln('В данном массиве нет столбца с одинаковыми элементами');
  end;
end.

3. Вот код на Pascal для решения данной задачи:

arduinoCopy code
program Task3;
const
  N = 7;
var
  arr: array[1..N, 1..N] of integer;
  i, j: integer;
begin
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      if i <= j then
      begin
        if (i + j) mod 2 = 0 then
        begin
          arr[i, j] := 1;
        end
        else
        begin
          arr[i, j] := 0;
        end;
      end
      else
      begin
        arr[i, j] := arr[j, i];
      end;
      write(arr[i, j], ' ');
    end;
    writeln;
  end;
end.