Question

дан массив случайных чисел в диапазоне от -10 до 100. Заменить четные элементы 0. Напишите полностью код пожалуйста.

Answer 1

1 2 3 4 5 6 7 8 9 uses   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.