Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Вариант А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.