Сформировать массив Е из 12 целых чисел

Заполнить случ. от - 3 до 18

Заменить в массиве все четные на 0

Вывести массив

Question

Информатика

Нархаят

13 января, 04:50

Сформировать массив Е из 12 целых чисел

Заполнить случ. от - 3 до 18

Заменить в массиве все четные на 0

Вывести массив

+4

Ответы (1)

Знаете ответ на вопрос?

Чаебуд · Answer 1

Var e: array [1 ... 12] of integer;

i, k:Integer;

Begin

randomize;

for i:=1 to 12 do

begin

e[i]:=random (21) - 3;

if (e[i] mod 2 = 0) then

e[i] : = 0;

write (e[i],' ') ;

end;

end.

Сформировать массив Е из 12 целых чиселЗаполнить случ. от - 3 до 18Заменить в массиве все четные на 0Вывести массив

Сформировать массив Е из 12 целых чисел

Заполнить случ. от - 3 до 18

Заменить в массиве все четные на 0

Вывести массив