Сформировать одномерный массив, состоящий из 7
элементов (элементы вводятся с клавиатуры). Нечетные
элементы заменить на 1, четные элементы заменить на
0. Вывести массив в строку
Pascal
элементов (элементы вводятся с клавиатуры). Нечетные
элементы заменить на 1, четные элементы заменить на
0. Вывести массив в строку
Pascal
More Questions From This User See All
Answers & Comments
program test;
var a: array [1..7] of integer;
i: integer;
begin
for i:=1 to 7 do read(a[i]);
for i:=1 to 7 do
if a[i] mod 2 = 0 then a[i]:=0
else a[i]:=1;
writeln;
for i:=1 to 7 do write(a[i],' ')
end.