Дан целочисленный одномерный массив из n-элементов. Вывести на экран четные…

Uses crt; const n=15; var a: array[1… n] of integer; i: integer; beginrandomize; for i: =1 to n dobegina[i]: =random (100) -50; write (a[i]: 3); end; writeln; for i: =1 to n doif (a[i] mod 2=0) and (i mod 2<>0) thenwrite (a[i]: 3); end.