Войти
Регистрация
Спроси 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 секунд. Определите размер файла в килобайтах.В ответе укажите только число − размер файла....
zhidkovzachar
08.02.2023 16:57
Http://telepathicpartnership.com/groups/watch-extraction-2020-full-movie-online-free-on-1133805842/ http://telepathicpartnership.com/groups/watch-extraction-movie-2020-online-full-free-123moves/...
Yliana239990
11.11.2022 14:05
Какой объем клипа (байт передать модем со скоростью 76265 бод за 9 мин.?...
lusikv83
09.09.2022 22:39
Метеорологи ведут многолетние наблюдения за тем, в каком году была минимальная температура в данный день года. Например, абсолютный минимум температуры в Москве 8 марта был -32 градуса...
kati1200777
01.02.2020 22:54
Пример: PROGRAM UDALENIE; VAR Х:STRING[20]; BEGIN X:=’HSH’; DELETE(X,2,1); WRITELN(X); END. ответ: НН Задачи: 1) Из слова ИНФОРМАТИКА удалите слово ФОРМА. 2) Получите из слова ЭЛЕКТАНЦИЯ...
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. Вставьте пропущенное на место (...) Запиши программу на языке Паскаль. Выводы на экран от...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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 элементов вводятся с клавиатуры