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

Question

Информатика

Валеша

25 сентября, 09:08

Дан массив случайных чисел в диапазоне от - 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.