Дан массив случайных чисел в диапазоне от -10 до - вопрос №476487310100 от татьяна1039 28.08.2021 08:31

Question

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

татьяна1039 · 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....