Предмет: Информатика,
автор: Dabdab22
Решите задачу пожалуйста
заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и вывести на экран порядковые номера равных последнему элементу массива
а)Равных последнему элементу массива.
Ответы
Автор ответа:
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
Внимание! Если программа не работает, обновите версию!
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
Интересные вопросы
Предмет: Геометрия,
автор: rodonit2007
Предмет: Английский язык,
автор: dzhanatova74
Предмет: Физика,
автор: Dimasik1924
Предмет: Математика,
автор: алина1736
Предмет: Литература,
автор: vika763