Question

Сформировать одномерный массив, состоящий из 7

элементов (элементы вводятся с клавиатуры). Нечетные

элементы заменить на 1, четные элементы заменить на

0. Вывести массив в строку
Pascal

Answer 1

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.