подкорректируйте код

[stupidstudent]

В общем мне дали такую задачку (pascal):
Записать в одномерный массив, те числа из числовой последовательности введенной пользователем, у которых, сумма цифр стоящих на четных позициях от конца, у которых эта сумма нечетная. С использованием function или procedure.

Вот что у меня получилось правда без одномерного массива, да и работает:

uses crt;
var n, s4, i, x : integer;         
function sum(x : integer ):integer; 
var h, s : integer;
BEGIN
     s := 0;
     while ( x > 0 ) do
           begin
           h := x mod 10;
           s := s + h;
           x := x div 10;
           end;
           sum := s;
           end;
                                  
           begin
           clrscr;
           s4 := 0;
           write ('kol-vo 4isel - ');
           readln(n);
                     for i := 1 to n do
                         begin
                         write ('vvedite ',i,'-oe 4islo - ');
                         readln(x);
                  if sum(x) mod 2 = 1 then
                                    s4 := s4 + x;
                         end;
                                    write ('Sum = ', s4);
readln;

END.

но с одномерным массивом ничего не выходит...
что здесь подредактировать, чтобы она работала с одномерным массивом?

[Alex11223]

Дык массив-то где?)

[stupidstudent]

Сообщение от Alex11223

Дык массив-то где?)

Я же написал, что получилось без массива, а с массивом не выходит...

[Alex11223]

Ну покажите, что не выходит, тут же нет телепатов. Или код не ваш?)

[stupidstudent]

Сообщение от Alex11223

Ну покажите, что не выходит, тут же нет телепатов. Или код не ваш?)

говнокод

program noname;
 
uses crt;
 
var a : array [1..100] of integer;
i, m, n, b, j, s, k, f : integer;

function sum(n : integer; s : integer):integer;
var h,  k : integer;

BEGIN
s := 0;
k := 0;
while  n > 0  do
 begin
  h := n mod 10;
  k := k + 1;
  if k mod 2 = 0 then  s := s + h;
  n := n div 10;
 end;
sum := s;
end;
                                 
 
begin
clrscr;
j := 1;
write('Vvedite kol-vo chisel ');
readln(m);
 
 
for i:=1 to m do
    begin
    write('vvedite chislo ');
    readln(n);
    end;
 
 
        write(sum(n,s));
 
             for i := 1 to m do
                     begin
                     a[i] := n;
                     j := j + 1;
                     end;
 
 
          for i := 1 to m do
          begin
               write (a[3], ' ');
          end;
 
readln;
END.

[Step_UA]

Uses crt;
var n, i, x : integer;    
a : array [1..100] of integer; j:integer;    
function sum(x : integer ):integer; 
var h, s : integer;
BEGIN
     s := 0;
     while ( x > 0 ) do
           begin
           h := x mod 10;
           s := s + h;
           x := x div 10;
           end;
           sum := s;
           end;
                                  
           begin
           clrscr;
           s4 := 0;
           write ('kol-vo 4isel - ');
           readln(n);
           j:=0;
                     for i := 1 to n do
                         begin
                         write ('vvedite ',i,'-oe 4islo - ');
                         readln(x);
                  if sum(x) mod 2 = 1 then
                                   begin
                                    inc(j);
                                    a[j]:=x;
                                   end;
                         end;
                     writeln('Massiv:');
                     for i:=1 to j do writeln(a[i]);
readln;

END.

PS код не проверял ...

[stupidstudent]

Сообщение от Step_UA

 код

PS код не проверял ...

спасибо! все работает.