Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Dinastita
11.12.2020 03:36 •
Информатика
№12 найти номер элемента с заданным значением (все элементы разные). программу по паскалю
Показать ответ
Ответ:
denzozp08hc1
06.10.2020 02:59
Var a: array of integer;
n,value, minind: integer;
begin
write('Введите n: ');
readln(n);
a := new integer[n];
write('Введите числа: ');
for var i:=0 to a.Length-1 do
read(a[i] );
write('Введите заданное значение: ');
read(value);
write('Номер элемента с заданным значением: ');
a[0]:=value;
minind := 1;
for var i:=0 to a.Length-1 do
if a[i]=value then
begin
minind := i+1;
end;
writeln(minind);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
niuaki
12.06.2021 22:40
Дана строка символов.найти количество слов,у которых первый последний символы между собой...
ramazan2001xxx
12.06.2021 22:40
Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма. var a, b, t, m, r: integer; function f(x: integer): integer; begin f: =(x*x-25)*(x*x-25)+25...
Mаster001
12.06.2021 22:40
Внекоторой информационной системе информация кодируется двоичными шестиразрядными словами. при передаче данных возможны их искажения, поэтому в конец каждого слова добавляется...
joom3
12.06.2021 22:40
По информатике цветная картинка размером 1024 х 768 пикселя количество используемых цветов 128 определит объем изображения в кб...
Angela8689
12.06.2021 22:40
Вычислить значение функции f по одной из формул в зависимости от значения х: f=x+b1 при х 6 f=x/b2 при х=15 f=x+b3 в остальных случаях значение b1 b2 b3 вводятся....
Ангелина56533
28.01.2023 14:26
Переведите число 73 из восьмеричной системы счисления в двоичную систему счисления....
agroDan
28.01.2023 14:26
Напишите название антивирусной программы...
lyubimov20051
15.10.2020 16:48
Вставте нужные слова вместо многоточий....
nnxxxmm5p03cok
23.02.2023 20:35
(PYTHON MIDDLE) Создайте функцию, которая форматирует введенную строку, выравнивая ее по центру указанного количества символов, и с обеих сторон заполняет пробелы указанным...
aleks1632
11.03.2020 06:24
Граф называют полным если А) Не содержит параллельных ребер Б) Катет равен половине гипотенузы В) Любые две различные вершины соединены одним ребром...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,value, minind: integer;
begin
write('Введите n: ');
readln(n);
a := new integer[n];
write('Введите числа: ');
for var i:=0 to a.Length-1 do
read(a[i] );
write('Введите заданное значение: ');
read(value);
write('Номер элемента с заданным значением: ');
a[0]:=value;
minind := 1;
for var i:=0 to a.Length-1 do
if a[i]=value then
begin
minind := i+1;
end;
writeln(minind);
end.