Вариант А3: В массиве все элементы, стоящие после нечетных, заменить ** 0. Пример: из...

Question

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

Answer 1

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.