В нечётных столбцах заменить элементы на 0 и подсчитать сумму элементов в каждой чётной строке - PascalABC.NET
Формулировка задачи:
В нечётных столбцах заменить элементы на 0 и подсчитать сумму элементов в каждой чётной строке.
Народ помогите пожалуйста,у меня идей никаких. Пытался через if не смог. Вот часть кода, который я беру за основу!Решение задачи: «В нечётных столбцах заменить элементы на 0 и подсчитать сумму элементов в каждой чётной строке»
textual
Листинг программы
const
m = 5;
n = 4;
var
a : array[1..m, 1..n] of byte;
begin
Randomize;
for var i := 1 to m do
begin
for var j := 1 to n do
begin
a[i, j] := random(10);
write(a[i, j]:3)
end;
writeln
end;
WriteLn(' ------------');
for var i := 1 to m do
begin
for var j := 1 to n do
begin
if odd(j) then
a[i, j] := 0;
write(a[i, j]:3)
end;
writeln
end;
WriteLn(' ------------');
for var i := 1 to m do
if not odd(i) then
begin
var S := 0;
for var j := 1 to n do
S += a[i, j];
WriteLn('сумма ', i, ' строки = ', S);
end;
end.
Объяснение кода листинга программы
В данном коде выполняются следующие действия:
- Задаются размеры массива a (m на m+1) и инициализируются его элементы случайными числами.
- Выводится содержимое массива a в консоль.
- Производится замена элементов массива a в нечётных столбцах на 0.
- Выводится обновлённое содержимое массива a в консоль.
- Для каждой чётной строки массива a вычисляется сумма её элементов и выводится в консоль.