как в паскале вывести количество нечётных елементов массива!!??

Question

жклательно какую команду использовать надо? ?

Олег Бекренев · Accepted Answer

Посчитать их количество и сумму. Удвоить каждый нечетный элемент и вывести массив после преобразования.

Жанбу Калбаева · Answer

Используй mod для определения чётности. А как счётчик крутить, полагаю, знаешь.

Ahmed · Answer

Program Name; 
const n=5; 
var a: array[1..n,1..n] of integer; 
i,j,k:integer; 
begin 
for i:=1 to n do 
begin 
for j:=1 to n do 
begin 
Write('BBedute chilso nomep ',j,' B ctpoky ',i,': '); 
ReadLn(a[i,j]); 
end; 
end; 
 
k:=0; 
 
for i:=1 to n do 
begin 
for j:=1 to n do 
begin 
if (a[i,j] mod 2)>0 then k:=k+1; 
end; 
end; 
 
WriteLn(k); 
end.