Решите задачу пожалуйста заполнить массив из 15 элементов числами из интервала от -10 до...

0 голосов
34 просмотров

Решите задачу пожалуйста
заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и вывести на экран порядковые номера равных последнему элементу массива
а)Равных последнему элементу массива.


Информатика (23 баллов) | 34 просмотров
Дан 1 ответ
0 голосов
Правильный ответ
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,-10,10); a.Println;
  a.IndexesOf(t->t=a.Last).Select(t->t+1).TakeWhile(t->t<>15).Println
end.

Пример
-4 5 7 2 4 -4 -4 -4 -8 8 9 9 7 6 7
3 13
(150k баллов)