Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
svashalol
14.12.2021 06:30 •
Информатика
Дан массив чисел а¹.. а¹²,найти и напечатать номер первого отрицательного элемента 30
Показать ответ
Ответ:
kise1970
07.10.2020 06:59
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(12);
Writeln('Номер первого отрицательного элемента: ',a.FindIndex(t->t<0)+1);
end.
Пример
36 20 -13 50 14 27 -1 26 -14 -17 -15 42
Номер первого отрицательного элемента: 3
Замечание: Значения всех 12 элементов вводятся с клавиатуры
0,0
(0 оценок)
Популярные вопросы: Информатика
Cuba125
04.04.2022 10:01
Какой режим используется (Сортировщик слайдов, Страница заметок, Показ слайдов, Обычный) на данной картинке:...
solokha24
25.06.2021 18:19
Скорость передачи данных равна 512 000 бит/c. Передача файла через данное соединение заняла 20 секунд. Определите размер файла в килобайтах.В ответе укажите только число − размер файла....
Yliana239990
11.11.2022 14:05
Какой объем клипа (байт передать модем со скоростью 76265 бод за 9 мин.?...
lusikv83
09.09.2022 22:39
Метеорологи ведут многолетние наблюдения за тем, в каком году была минимальная температура в данный день года. Например, абсолютный минимум температуры в Москве 8 марта был -32 градуса...
Lori04
14.03.2022 12:03
Выберите понятия, которые означают свойства информации, с точки зрения информации для человека...
9uh9ev2
14.03.2022 12:03
На языке Паскаль составить программу для проверки равенства. С клавиатуры ввести точность ε и вещественное число x. Определить, сколь-ко сомножителей было найдено....
Zahar4472
09.04.2021 22:58
Які з команд було введено з відступом вправоk= 2і = -2if k -i:i=-ik=k+iif k i:k = k+5print(k)УМОЛЯЮ...
Даша1707
08.01.2021 15:58
Вставьте пропущенное на место (...) Дано: для i: = 17 до 3 (...) до (...) с шагом (...) 2. Вставьте пропущенное на место (...) Запиши программу на языке Паскаль. Выводы на экран от...
Dffc
25.07.2020 23:28
Даны действительные числа a, b, c. Проверить выполняются ли неравенства a b c. Delphi...
justnastasyaaa
18.05.2021 14:01
Составьте программу, которая вычисляет оптимальный вес, сравнивает его с реальным и выдаёт рекомендацию о необходимости поправиться или похудеть (с указанием, на сколько кг нужно поправиться...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(12);
Writeln('Номер первого отрицательного элемента: ',a.FindIndex(t->t<0)+1);
end.
Пример
36 20 -13 50 14 27 -1 26 -14 -17 -15 42
Номер первого отрицательного элемента: 3
Замечание: Значения всех 12 элементов вводятся с клавиатуры