Составить программу, которая бы находила сумму нечетных элементов одномерного…

var a: array[1… 100] of integer; Summ, i, n: integer; begin write ('Введите количество элементов массива '); readln (n); for i: =1 to n do begin a[i]: =random (51) — 25; write (a[i], '); if a[i] mod 2 <> 0 then Summ: =Summ+a[i]; end; writeln; writeln ('Summ=', Summ); end.