Составьте программу, которая заполняет массив А[1… 10] случайными целыми числами в…

Var a: array [1… 10] of integer; i,s: integer; begins: =1; for i: =1 to 10 do beginA[i]: =random (10)+1; write (a[i],'); end; for i: =1 to 10 doif a[i] mod 2=1 then s: =s*a[i]; writeln; writeln (s); end.