Дан массив случайных чисел в диапазоне от -10 до 100. Заменить четные элементы 0. Напишите полностью код пожалуйста.
123456789uses Arrays;begin Randomize; var a := CreateRandomIntegerArray(ReadLnInteger(Размер массива: n=), -10, 100); WriteLn(Создан массив случайных чисел: ); a.Writeln( ); for var i := 0 to a.Length-1 do if a[i] > 0 then a[i] := 0; WriteLn(произведена замена: ); a.Writeln( );end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
