Home
О нас
Products
Services
Регистрация
Войти
Поиск
Dimanych
@Dimanych
November 2021
1
5
Report
Задача №12
Найти номер элемента с заданным значением (все элементы разные).
программу по паскалю
Please enter comments
Please enter your name.
Please enter the correct email address.
Agree to
terms of service
You must agree before submitting.
Send
Answers & Comments
ShirokovP
Verified answer
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.
1 votes
Thanks 0
More Questions From This User
See All
Dimanych
August 2022 | 0 Ответы
pomogite reshit zadachu6369b0645ada158d65d7f4eefd2c6fe0 35623
Answer
Dimanych
July 2022 | 0 Ответы
pomogite sdelat zadachu53e3be9fba3a7009e97403bcb17212ca 675
Answer
Dimanych
July 2022 | 0 Ответы
zadacha 13 dany naturalnoe chislo n i dejstvitelnye chisla a1 a2 an vychisl
Answer
Dimanych
July 2022 | 0 Ответы
dany naturalnoe chislo n i dejstvitelnye chisla a1 a2 an vychislit s a1
Answer
Dimanych
July 2022 | 0 Ответы
imeetsya 8 sharikov odinakovoj formy i razmerov odin iz nih legche chem ostalnye
Answer
Dimanych
July 2022 | 0 Ответы
raskrojte skobki i postavte glagol v pravilnuyu formu 1 my sister to get
Answer
Dimanych
July 2022 | 0 Ответы
there is 1 v vashej gruppe mnogo studentov 2 na lekcii bylo mnogo narodu 3
Answer
Dimanych
July 2022 | 0 Ответы
word pomogite
Answer
Dimanych
November 2021 | 0 Ответы
logarifm po osnovaniyu 4 chisla 8pomogite pozhalujsta
Answer
Dimanych
October 2021 | 0 Ответы
2sin15sin75 skolko budet
Answer
рекомендуемые вопросы
rarrrrrrrr
August 2022 | 0 Ответы
o chem dolzhny pozabotitsya v pervuyu ochered vzroslye pri organizacionnom vyvoze n
danilarsentev
August 2022 | 0 Ответы
est dva stanka na kotoryh vypuskayut odinakovye zapchasti odin proizvodit a zapcha
myachina8
August 2022 | 0 Ответы
najti po grafiku otnoshenie v3v1 v otvetah napisano 9 no nuzhno reshenie
ydpmn7cn6w
August 2022 | 0 Ответы
Choose the correct preposition: 1.I am fond (out,of,from) literature. 2.where ar...
millermilena658
August 2022 | 0 Ответы
opredelite kak sozdavalas i kto sozdaval arabskoe gosudarstvo v kracii
MrZooM222
August 2022 | 0 Ответы
ch ajtmanov v rasskaze krasnoe yabloko ispolzuet metod rasskaz v rasskaze opi
timobila47
August 2022 | 0 Ответы
kakovo bylo naznachenie kazhdoj iz chastej vizantijskogo hrama pomogite pozhalujsta
ivanyyaremkiv
August 2022 | 0 Ответы
moment. 6....
pozhalujsta8b98a56c0152a07b8f4cbcd89aa2f01e 97513
sarvinozwakirjanova
August 2022 | 0 Ответы
pomogite pozhalusto pzha519d7eb8246a08ab0df06cc59e9dedb 6631
×
Report "Задача №12 Найти номер элемента с заданным значением (все элементы разные). прог..."
Your name
Email
Reason
-Select Reason-
Pornographic
Defamatory
Illegal/Unlawful
Spam
Other Terms Of Service Violation
File a copyright complaint
Description
Helpful Links
О нас
Политика конфиденциальности
Правила и условия
Copyright
Контакты
Helpful Social
Get monthly updates
Submit
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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.