Вариант А3: В массиве все элементы, стоящие после нечетных, заменить на 0. Пример: из массива A[5]: 1 3 4 5 6 должен получиться массив 1 0 4 5 0

Pascal ABC

Const

N = 7;

Var

A:array[1 ... N]of integer;

i:integer;

Begin

WriteLn ('Введи элементы массива') ;

For i: = 1 to N do

Read (A[i]) ;

For i: = 2 to N do

Begin

if A[i-1] mod 2 = 1 then A[i]:=0;

Write (A[i-1],' ') ;

End;

Write (A[N],' ')

End.