775645
31.01.2022 23:05

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

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

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
yegor655
31.01.2022 17:12

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.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота