Помогите решить в паскале авс. 6. Дан двумерный массив размерности nxm. Посчитать количество нечетных элементов матрицы. Полученный результат вывести на экран.

Question

Информатика

Авксентий

7 апреля, 22:39

Помогите решить в паскале авс. 6. Дан двумерный массив размерности nxm. Посчитать количество нечетных элементов матрицы. Полученный результат вывести на экран.

+5

Ответы (1)

Знаете ответ?

Валентинка · Answer 1

Function oddcount (ar:array[1 ... n; 1 ... m] of integer) : integer;

var i, j:integer;

begin

result:=0;

for i:=1 to n do

for j:=1 to m do

begin

if odd (ar[i, j]) then

result:=result+1;

end;

writeln (result) ;

end;

Вот так как-то.