Напишите программу в Паскале, которая заполняет массив из N = 10 элементов случайными числами в диапазоне
[0,20], выводит его на экран, а затем находит индекс
первого элемента, равного введённому числу X.
Программа должна вывести ответ «не найден», если
в массиве таких элементов нет.
Пример:
Массив: 5 16 2 13 3 14 18 13 16 9
Что ищем: 13
A[4] = 13
nekrasovlesha1
1
15.12.2020 02:40
17
Другие вопросы по теме Информатика
Радькова32
08.01.2021 14:59
lyba228337ggg
17.02.2021 17:41
abduabdu2015
17.02.2021 17:44
zontikmily
17.02.2021 17:45
irinalika
17.02.2021 17:46
wdsgsdgeqwr
04.10.2019 00:50
alisapogorlyakoz2epw
04.10.2019 00:50
оля2045
19.07.2019 20:40
Gaky
19.07.2019 20:40
Популярные вопросы
- Проект по теме браслет своими руками из металла....
3 - Используя рисунок, найдите x и y (a известно решите очень надо...
2 - шарты 1 себетте-11алма2себетте- ??алма3себетте- 24 алма барлығы- 50алма...
2 - Рассказ Среневековая деревня и ее обитатели ( не большой рассказ)...
3 - У реченні , А вже сьогодні картина нарешті намальована , дієприкметник...
1 - Контрольна робота з української мови 9 клас з теми складносурядні і...
1 - Збаразький замок твір опис...
3 - Алгебра 7 класс. Найдите сумму многочленов «столбиком»: 1) 3ab + a²...
1 - 1. Найти синус альфа, если косинус альфа = 2. Найти косинус альфа, если...
1 - 20 б.Задание 4. Укажите особенности размещения нефте- и газопроводов...
3
var a: array [1..10] of integer;
x,i: integer;
k: boolean;
begin
k:=False;
randomize;
for i:=1 to 10 do
a[i]:=random(21);
readln(x);
for i:=1 to 10 do
if a[i]=x then
begin
x:=i;
k:=True;
break;
end;
if k then
writeln('a[',x,']=',a[x])
else
writeln('не найдено')
end.
Объяснение: