Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
pstepanova496
16.04.2020 20:06 •
Информатика
Дан массив чисел а¹.. а¹²,найти и напечатать номер первого отрицательного элемента 30
Показать ответ
Ответ:
SofiZ2005
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 оценок)
Популярные вопросы: Информатика
gtnzcdtnf
28.05.2020 14:32
Подсчитать количество положительных элементов в каждой строке матрицы размером МхN, элементы которой вводятся с клавиатуры. Программу и блок-схему...
dfhdfhf20022004
09.06.2020 02:09
Написать задачу,которая вычислит значение функции x=y^2 при значениях у от 3 до 8.(с цикла while,1 шаг цикла)...
denian11343
11.11.2020 04:47
Известно, что выполняется равенство 361q=190¹⁰. Определите основнование q...
byxanceva6kv2
24.05.2023 13:55
Выведи на экран большее из двух данных чисел.Запиши программу на языке Паскаль, выведи ответ на экран, если 1,03898 и 2,5824....
adsetafimov
19.08.2022 01:49
Как следует записывать условие отбора при фильтрации, которое позволит сформировать список девушек для участия в конкурсе красоты в апреле 2015 г.? (Отбираются девушки,...
maxradew
26.05.2023 06:14
Внутренняя память человека и компьютера долговременная оперативная креативная внешняя память человека и компьютера оперативная долговременная креативная материальный объект,...
дашадашадашадаша1
28.12.2022 00:56
Из 29 студентов группы 18 человек не пожелали принять участие ни в одной из олимпиад: математической, физической, в олимпиаде по информатике. В олимпиаде по математике...
allteennkka1985
16.09.2022 05:01
Студенты 1 курса, изучающие информатику в университете, могут посещать и дополнительные дисциплины. В этом году 25 из них предпочли изучать бухгалтерию, 27 выбрали бизнес,...
mandarinkamare007
16.09.2022 20:18
Определите по чертежу: каким процессам соответствует участки графика cb и be для какого вещества составлен график?...
Sveta0202
16.09.2022 20:18
Do you like jane s cats / cat s jane...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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 элементов вводятся с клавиатуры