Определить, есть ли в данной матрице столбец, в котором все элементы четны и положительны - Turbo Pascal
Формулировка задачи:
Дан двумерный массив размером МxN заполненный случайным образом. Определите, есть ли в данном массиве столбец, в котором все элементы четны и положительны
Решение задачи: «Определить, есть ли в данной матрице столбец, в котором все элементы четны и положительны»
textual
Листинг программы
- var
- a: array [1..100, 1..100] of integer;
- i, j, n, m, k: integer;
- begin
- randomize;
- write('Введите количество строк n: ');readln(n);
- write('Введите количество столбцов m: ');readln(m);
- for i := 1 to n do
- begin
- for j := 1 to m do
- begin
- a[i, j] := random(n) - m div 2;
- write(a[i, j]:3);
- end;
- writeln;
- end;
- k := 0;
- for j := 1 to m do
- begin
- for i := 1 to n do
- begin
- if (a[i, j] mod 2 = 0) and (a[i, j] > 0) then
- k := k + 1;
- end;
- if k = n then
- writeln('Столбец из четных и положительных элементов №: ', j);
- k := 0;
- end;
- readln;
- end.
Объяснение кода листинга программы
- Создается переменная
a
, которая представляет собой матрицу размеромn x m
для целых чисел. - В цикле
for
с индексами от 1 доn
и от 1 доm
происходит заполнение матрицы случайными числами. - После заполнения матрицы происходит проверка каждого столбца на наличие всех четных и положительных элементов.
- Если в каком-то столбце все элементы удовлетворяют условиям, то выводится номер этого столбца.
- Программа завершается после чтения пользовательского ввода.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д