Ответ: // PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!begin var a:=ArrRandom(ReadInteger(‘n=’),-3,3); a.Println; var s:=a.Select((x,i)->(x,i)).Where(t->t[0]=0).ToArray; if s.Length>0 then begin var b:=ArrGen(s.Length,i->s[i][1]+1).ToArray; b.Println(‘,’) end else Writeln(‘Нет нулевых элементов’)end.Примерn= 201 -3 0 3 -1 0 1 -2 1 1 0 -3 -3 -3 -2 2 -3 3 1 -13,6,11
В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов.
Нужно заполнить массив при помощи команды random — Правильный ответ на вопрос найдете ниже
19.01.2020 · 1