Найти и вывести на экран сумму нечетных элементов массива…

program z8; uses crt; var a: array[1… 259] of shortint; i,k,n: byte; s: integer; beginclrscr; randomize; write ('Vvedi razmernost massiva='); readln (n); for i: =1 to n do begina[i]: =random (100-100+1)+-100; write (a[i]: 4); if a[i]<0 thens: =s+a[i]; if odd (a[i]) thenk: =k+1; end; writeln; writeln ('Сумма отрицательных элементов равна ',s); writeln ('Кол-во нечетных элементов равно ',k); readkeyend.