Составить задачу в Паскале. Составьте программу вычисления суммы нечетных элементов одномерного массива А (Т). Массив заполнить случайным образом

Совет: лучше проверять нечетность по условию <>0, потому что для отрицательных целых (да, тут их нет, но бывают в других задачах) функция n mod 2 в Паскале (по крайней мере, в Турбо Паскаль) возвращает -1 для нечетного n. А в Excel возвращается 1 и для отрицательных. Поэтому проще запомнить универсальный алгоритм: проверять на равенство нулю для четных и на неравенство нулю для нечетных.

спасибо....

            Const n=10;Var a:array [1..n] of integer;s,t:integer;begin   randomize;    for t:=1 to n do  begin            a[t] := random(100);            write(a[t]:6);            end;            writeln;s:=0;for t:=1 to n doif a[t] mod 2=1 then s:=s+a[t];writeln('Summa=',s);end.