Часть массива перед минимальным значениям обнулить - вопрос №8250065 от sprikutviktpria 29.03.2023 05:00

Question

Информатика: Часть массива перед минимальным значениям обнулить паскаль

sprikutviktpria · Answer

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
for var i:=0 to a.IndexMin-1 do a[i]:=0; a.Println;
end.

Пример
n= 13
-10 44 17 13 50 49 -7 -46 -36 14 35 42 26
0 0 0 0 0 0 0 -46 -36 14 35 42 26