Вариант А3: В массиве все элементы, стоящие после нечетных, заменить на 0. Пример: из массива A[5]: 1 3 4 5 6 должен получиться массив 1 0 4 5 0
Вариант А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.
Не нашли ответ?
Похожие вопросы