Программа
var
A: array[1..8] of integer;
B: array[1..8] of integer;
i: integer;
begin
Writeln('Заполните массив ');
for i:=1 to 8 do
Read(A[i]);
if odd(A[i]) then //* смотри примечание после кода
B[i]:=A[i]
end;
Writeln('Нечётные числа массива ');
if B[i]>0 then
Write(B[i],' ');
end.
Прим.: *odd - функция, которая определяется чётность элемента. Если элемент нечётный, то функция возвращает значение true, в противном случае - false
Тестовый ввод программы показан в приложении к решению
Программа
var
A: array[1..8] of integer;
B: array[1..8] of integer;
i: integer;
begin
Writeln('Заполните массив ');
for i:=1 to 8 do
begin
Read(A[i]);
if odd(A[i]) then //* смотри примечание после кода
B[i]:=A[i]
end;
Writeln('Нечётные числа массива ');
for i:=1 to 8 do
begin
if B[i]>0 then
Write(B[i],' ');
end;
end.
Прим.: *odd - функция, которая определяется чётность элемента. Если элемент нечётный, то функция возвращает значение true, в противном случае - false
Тестовый ввод программы показан в приложении к решению