Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Gamonga
03.02.2022 23:33 •
Информатика
Среди 15 действительных чисел, введеных с клавиатуры, подсчитать количество элементов, равных последнему, и выдать их номера на экран
Показать ответ
Ответ:
AндрeйTh
01.10.2020 22:25
Const
N=15;
Var a: array [1..N] of integer;
i, y : integer;
Begin
for i:=1 to N do readln(a[i]);
y:=0;
for i:=1 to N do
If a[i]=a[N] then
begin
y:=i;
writeln (y);
end;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
yotuber
10.02.2021 19:28
Довжина двійкового коду текстового повідомлення становить 2097152 байти. виразіть це значення в мегабайтах...
pvpgaydukoxzb3r
01.02.2023 17:18
Заполните таблицу, используя скрипты своей игры. Информатика...
Coffee1998
05.10.2020 16:00
В MS Word набери слово жёсткий диск и сохрани его с названием inform, указав тип файла я не понимаю...
тооироь
03.06.2020 23:12
Какой животный скрывается по названием клещня...
NAZBEK
04.04.2022 01:26
Сочинить стих или загадку на тему пдд, можно про светофор, пешеходный переход и всё что связано с дорогой и правилами...
khaub456
02.08.2021 07:17
Какой из прямоугольников периметром 80 см. имеет наибольшую площадь? вычислите площадь этого прямоугольника....
SpaniGar
02.08.2021 07:17
Написать сочинение на тему рассказ о себе в форме письма. в тексте нужно употребить местоимения я, ты и себя в разных формах с предлогами. общие требования к тексту 1) стиль -...
d7175944p0ajvy
02.08.2021 07:17
Найди глаголы и выпиши их в не определённой с вапросамии что делать? что сделать ? все куда-то скрылось и подевалось. звуки приглушились, запахи замёрзли. день становился короче...
rostislavcapsu
02.08.2021 07:17
Впредложении: кто не верит - выходи! здесь сказуемые будут однородными или нет?...
Veronica123104
02.08.2021 07:17
1кто имел право участвовать в народном собрании в древних афинах? 2кто из житилей афин такого права не имел? 3как часто собиралось народное собрание? 4где в афинах оно собиралось?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
N=15;
Var a: array [1..N] of integer;
i, y : integer;
Begin
for i:=1 to N do readln(a[i]);
y:=0;
for i:=1 to N do
If a[i]=a[N] then
begin
y:=i;
writeln (y);
end;
End.