Помогите решить в паскале авс.6. Дан двумерный массив размерности nxm. Посчитать количество нечетных элементов матрицы. Полученный результат вывести на экран.
Помогите решить в паскале авс.6. Дан двумерный массив размерности nxm. Посчитать количество нечетных элементов матрицы. Полученный результат вывести на экран.
Гость
Ответ(ы) на вопрос:
Гость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;
Вот так как-то.
Не нашли ответ?
Похожие вопросы