Дан массив случайных чисел в диапазоне от -10 - вопрос №476487310100 от anuta00002000 11.06.2021 22:53

Question

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

anuta00002000 · Answer

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....