Question

оч.срочно надо! задачи в паскале на двумерные массивы 1)найти количество нулей в двумерном массиве,2.найти количество максимальных элементов в двумерном массиве.3.найти количество четных элементов каждой строки в двумерном массиве.4.найти номера номера элементов кратных 5 в двумерном массиве

Answer 1

Решение во вложении, работает на тп7

Answer 2

1) Для поиска количества нулей в двумерном массиве вам нужно пройти по всем элементам массива и подсчитать количество нулей. Вот пример кода на Pascal:

var
  arr: array[1..3, 1..3] of integer; // пример двумерного массива
  i, j, count: integer;
begin
  count := 0;
  // заполнение массива (можете использовать свои значения)
  for i := 1 to 3 do
    for j := 1 to 3 do
      arr[i, j] := 0; // пример заполнения массива нулями

// поиск количества нулей
  for i := 1 to 3 do
    for j := 1 to 3 do
      if arr[i, j] = 0 then
        count := count + 1;

writeln('Количество нулей в массиве: ', count);
end.

2) Для поиска количества максимальных элементов в двумерном массиве вам также нужно пройти по всем элементам массива и подсчитать количество максимальных элементов. Вот пример кода на Pascal:

var
  arr: array[1..3, 1..3] of integer; // пример двумерного массива
  i, j, max, count: integer;
begin
  max := arr[1, 1]; // предположим, что первый элемент массива - максимальный
  count := 0;
  // заполнение массива (можете использовать свои значения)
  for i := 1 to 3 do
    for j := 1 to 3 do
      arr[i, j] := 0; // пример заполнения массива

// поиск максимального элемента
  for i := 1 to 3 do
    for j := 1 to 3 do
      if arr[i, j] > max then
        max := arr[i, j];

// подсчет количества максимальных элементов
  for i := 1 to 3 do
    for j := 1 to 3 do
      if arr[i, j] = max then
        count := count + 1;

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

3) Для поиска количества четных элементов каждой строки вам нужно пройти по всем элементам каждой строки и подсчитать количество четных элементов. Вот пример кода на Pascal:

var
  arr: array[1..3, 1..3] of integer; // пример двумерного массива
  i, j, count: integer;
begin
  // заполнение массива (можете использовать свои значения)
  for i := 1 to 3 do
    for j := 1 to 3 do
      arr[i, j] := 0; // пример заполнения массива

// поиск количества четных элементов каждой строки
  for i := 1 to 3 do
  begin
    count := 0;
    for j := 1 to 3 do
      if arr[i, j] mod 2 = 0 then
        count := count + 1;
    writeln('Количество четных элементов в строке ', i, ': ', count);
  end;
end.

4) Для поиска номеров элементов, кратных 5, вам нужно пройти по всем элементам массива и записать номера элементов, кратных 5. Вот пример кода на Pascal:

var
  arr: array[1..3, 1..3] of integer; // пример двумерного массива
  i, j: integer;
begin
  // заполнение массива (можете использовать свои значения)
  for i := 1 to 3 do
    for j := 1 to 3 do
      arr[i, j] := 0; // пример заполнения массива

// поиск и вывод номеров элементов, кратных 5
  for i := 1 to 3 do
    for j := 1 to 3 do
      if arr[i, j] mod 5 = 0 then
        writeln('Элемент (', i, ', ', j, ') кратен 5');
end.

Надеюсь, это поможет вам решить ваши задачи!