Дан массив случайных чисел в диапазоне от - 10 до 100 заменить чётные элементы нулем

Question

Информатика

Агафа

25 ноября, 06:20

Дан массив случайных чисел в диапазоне от - 10 до 100 заменить чётные элементы нулем

+4

Ответы (1)

Знаешь ответ?

Вадим · Answer 1

Program name; const n=10; var a:array [1 ... 10] of integer; i:integer; beginfor i:=1 to n doa[i]:=random (110) - 10; for i:=1 to n doif a[i]mod 2=1 then a[i]:=0; end.