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

Uses crt; const n=10; var a: array[1… n] of integer; i,k: integer; beginrandomize; k: =0; for i: =1 to n dobegina[i]: =random (10); writeln (a[i]); end; writeln; for i: =1 to n doif (a[i] mod 2=0) then k: =k+1; if k<>0 thenbeginfor i: =1 to n dobegina[i]: =a[i]+1; writeln (a[i]); end; endelsebeginfor i: =1 to n dowriteln (a[i]); end; end.