Паскаль.Массивы.

[Mariya0202]

Привет всем!Помогите,пожалуйста,написать код:Дано натуральное чисдло n.Верно ли,что сумма цифр этого числа является нечётной?

[начинающий кодер]

var a,x:integer;
 i,s:integer;

begin
 writeln('введите целое число');
 readln( a ); x:=a;
 s:=0;
 while ( x<>0 ) do 
 begin
   s := s + (x mod 10);
   x := x div 10;
 end;
 if s mod 2 <> 0 then writeln( 'true' )
 else writeln('false');
end.

Примечание модератора:
НЕ нужно давать готовый код, направляй её в нужное русло!

[Манжосов Денис :)]

Примерно так: делишь число n на составляющие посредством mod и div, используя переменные для хранения получившихся чисел. Затем переменные складываешь и делаешь проверку с использованием mod. Подумай своей головой и не пиши, что "я ничего не понялааааа".
А где твои наработки? Задача простейшая, я вообще не понимаю, как её можно не понять??? И при чём здесь вообще массив? Если его нужно использовать, то храни переменные в массиве, а иначе нужно давать теме осмысленное название!

[Mariya0202]

Люди,спасибо за подсказки,но мне надо написать код,каким-то образом применяя массивы...Код,написанный выше, я и сама знала,а вот через массивы я понятия не имею,как эту задачку решить можно...

[ОДИНОЧЕСТВО В СЕТИ]

var s:string;
 a:array [1..100] of integer;
 sum:integer;
 i:integer;

begin
sum:=0; 
writeln('введите целое число');
readln( s );
for i:=1 to length(s) do
a[i]:=ord(s[i])-ord('0');
for i:=1 to length(s) do
sum:=sum+a[i]; 
 if sum mod 2 <> 0 then writeln( 'true' )
 else writeln('false');
end.

так устроит?

[Mariya0202]

СПАСИБО ОГРОМНОЕ!!!