//PascalABC.NET 3.1 сборка 1200 begin var n := ReadInteger('n = '); var a := ArrRandom(n, -50, 50); a.Println; var mini := a.IndexMin(); var maxi := a.Max(); maxi := a.FindLastIndex(x -> x = maxi); //ищем последний максимум, если их несколько
Println(mini, maxi); if maxi < mini then Swap(mini, maxi);
for var i := mini + 1 to maxi - 1 do a[i] := 0; a.Println; end.
Выше быстродействие и выше качество при печати текста. Лазерный принтер -- высочайшее качество, бумагу нельзя сгибать. Струйный принтер -- качество ...(бывает хорошее) , нельзя водой мочить. Лазерный и струйный принтер различаются по различным категориям, а именно: - стоимость (начальная и обслуживания); - скорость; - качество; - размер; - сетевые средства обслуживания. Также при этом существенно понимать технологию печати лазерного и струйного принтера, поскольку это главный фактор, влияющий на их стоимость.
begin
var n := ReadInteger('n = ');
var a := ArrRandom(n, -50, 50);
a.Println;
var mini := a.IndexMin();
var maxi := a.Max();
maxi := a.FindLastIndex(x -> x = maxi); //ищем последний максимум, если их несколько
Println(mini, maxi);
if maxi < mini then Swap(mini, maxi);
for var i := mini + 1 to maxi - 1 do
a[i] := 0;
a.Println;
end.