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

var a: array[1… 20] of integer; i,arf,k: integer; begink: =0; for i: =1 to 20 dobegina[i]: =random (10); if (a[i]/2=a[i] div 2) or (i/2<>i div 2) thenbegin arf: =arf+a[i]; inc (k); end; end; arf: =round (arf/k); for i: =1 to 20 do writeln ('a[',i,']=',a[i]); writeln ('Srendee arirfm. chentix chisel u nechetnix indexov=',arf); readln; end.