Процессор, жёсткий диск, оперативная память, видеокарта, материнская плата, сд привод
// PascalABC.NET 3.0, сборка 1088
begin
var a:=ArrRandom(10,-20,20);
a.Println(',');
var m:=a.Max;
for var i:=0 to 9 do
if a[i]=m then a[i]:=0;
a.Println(',')
end.
Тестовое решение:
-14,-7,<em>15</em>,-7,-11,7,4,1,-20,-15
-14,-7,<em>0</em>,-7,-11,7,4,1,-20,-15
Begin
writeln('Поздравляю с началом учебного года!')
end.