Определить, есть ли в данной матрице столбец, в котором все элементы четны и положительны - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Дан двумерный массив размером МxN заполненный случайным образом. Определите, есть ли в данном массиве столбец, в котором все элементы четны и положительны

Решение задачи: «Определить, есть ли в данной матрице столбец, в котором все элементы четны и положительны»

textual
Листинг программы
  1. var
  2.   a: array  [1..100, 1..100] of integer;
  3.   i, j, n, m, k: integer;
  4.  
  5. begin
  6.   randomize;
  7.   write('Введите количество строк     n: ');readln(n);
  8.   write('Введите количество столбцов  m: ');readln(m);
  9.   for i := 1 to n do
  10.   begin
  11.     for j := 1 to m do
  12.     begin
  13.       a[i, j] := random(n) - m div 2;
  14.       write(a[i, j]:3);
  15.     end;
  16.     writeln;
  17.   end;
  18.   k := 0;
  19.   for j := 1 to m do
  20.   begin
  21.     for i := 1 to n do
  22.     begin
  23.       if (a[i, j] mod 2 = 0) and (a[i, j] > 0) then
  24.         k := k + 1;
  25.     end;
  26.     if k = n then
  27.       writeln('Столбец из четных и положительных элементов №: ', j);
  28.     k := 0;
  29.   end;
  30.   readln;
  31. end.

Объяснение кода листинга программы

  1. Создается переменная a, которая представляет собой матрицу размером n x m для целых чисел.
  2. В цикле for с индексами от 1 до n и от 1 до m происходит заполнение матрицы случайными числами.
  3. После заполнения матрицы происходит проверка каждого столбца на наличие всех четных и положительных элементов.
  4. Если в каком-то столбце все элементы удовлетворяют условиям, то выводится номер этого столбца.
  5. Программа завершается после чтения пользовательского ввода.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.917 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы