Сформировать одномерный массив, состоящий из 7 элементов (элементы вводятся с клавиатуры). Нечетные

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

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

Question

Информатика: Сформировать одномерный массив, состоящий из 7 элементов (элементы вводятся с клавиатуры). Нечетныеэлементы заменить на 1, четные элементы заменить на0. Вывести массив в строкуPascal

Lulu8080 · Answer

program test;var a: array [1..7] of integer;i: integer;beginfor i:=1 to 7 do read(a[i]);for i:=1 to 7 doif a[i] mod 2 = 0 then a[i]:=0else a[i]:=1;writeln;for i:=1 to 7 do write(a[i], )end....

Популярные вопросы