Сформируйте одномерный массив из 5 элементов

Program pr; var a: array [1… 5] of integer; i: integer; beginfor i: =1 to 5 doread (a[i]); for i: =1 to 5 dowrite (a[i]: 5); writeln; for i: =1 to 5 doif a[i] mod 2 <>0 then a[i]: =0; for i: =1 to 5 dowrite (a[i]: 5); end.