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.