Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
anfisachupina85
25.11.2021 08:00 •
Информатика
Решите заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и вывести на экран порядковые номера равных последнему элементу массива а)равных последнему элементу массива.
Ответ:
khludenev99
08.10.2020 10:30
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
0,0
(0 оценок)
Популярные вопросы: Информатика
Zadrot233
01.12.2020 04:46
Напишите программу в паскале: Программа получает на вход 15 натуральных чисел. Напишите программу, которая определит сумму чисел, кратных 11. Программа должна вывести...
тупая761
21.04.2022 19:10
Дано математическое выражение. Запишите, как оно будет записано в языке программирования Python? а) 2(а+с) б)2х-3у в) г)3х-22у...
DashaHB16
09.05.2022 19:47
Дайте следующим сообщения оценку : «важная», «полезная», «безразличная», «вредная», «достоверная», «объективная», «точная» информация. 1. Сейчас идёт дождь. 2. Завтра...
Galor
16.02.2022 13:01
Найти произведение всех двухзначных чисел, кратных 3. Язык программирования : Pascal...
alliance234
26.01.2022 11:41
Составить алгоритм и программу для вычисления: p=n*k пока n не будет равно 10...
bezrodnyhartem2Arizi
12.06.2022 05:52
Дано номер деякого року (додатне ціле число). вивести відповідний йому номер століття, враховуючи, що, наприклад, початком 20 століття був 1901 рік....
Afyz1
22.12.2020 11:26
Петя коллекционирует наклейки с супергероями (сг), а маша наклейки с феями. в магазине за покупку свыше некоторой суммы запечатанный конверт с разными наклейками. у пети...
Jdudn
03.01.2020 10:10
Складіть алгоритм установлення операційної системи...
KILLER435
26.10.2020 07:26
Закодируй слова «монитор» и «клавиатура», заменяя буквы их порядковыми номерами в алфавите...
azalinasabirova
01.11.2021 22:01
Описать процедуру digitcount(k,c), находящую c — количество цифр целого положительного числа k (k — входной, c — выходной параметры целого типа). с этой процедуры найти...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Внимание! Если программа не работает, обновите версию!
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