Определить и напечатать номер строки введенной матрицы, в котором больше парных элементов - PascalABC.NET
Формулировка задачи:
С клавиатуры ввести прямоугольную матрицу целых чисел ( максимальная размерность матрицы - 20х20 элементов). Определить и напечатать номер строки введенной матрицы , в котором больше парных элементов
матрицу я сделал а с парными элементами у меня проблема
Решение задачи: «Определить и напечатать номер строки введенной матрицы, в котором больше парных элементов»
textual
Листинг программы
const
n = 20;
var
x: Array[1..n, 1..n] of Integer;
i, j, max, t, st: Integer;
begin
randomize;
Writeln('Матрица:');
t := 0;
for i := 1 to n do
begin
for j := 1 to n do
begin
x[i, j] := Random(n);
if not odd(x[i, j] ) Then
Inc(t);
Write(x[i, j]:4);
end;
if t > max Then
begin
max := t;
st := i;
end;
t := 0;
Writeln
end;
Writeln('Строка с наиб. кол-вом четных: ', st);
end.
Объяснение кода листинга программы
- Объявлены переменные: n - размерность матрицы (20); x - матрица целых чисел (Array[1..n, 1..n] of Integer); i, j, max, t, st - целочисленные переменные для управления циклом и поиска максимального значения.
- Задана и выведена матрица случайными значениями от 0 до n-1.
- Переменная t инициализируется нулем. Она используется для подсчета парных элементов.
- Два вложенных цикла вычисляют сумму элементов матрицы.
- Если элемент матрицы нечетный, то он не учитывается в подсчете (если нечетный).
- После вывода каждого элемента матрицы, значение переменной t сбрасывается в ноль.
- Если текущее значение переменной t больше максимального значения, то обновляются значения переменных max и st.
- После завершения вывода матрицы, выводится строка с наибольшим количеством четных элементов.