Имеется массив А (1.h). Найти элемент массива, равный P
Имеется массив А (1.h). Отыскать элемент массива, равный P
Задать свой вопрос
Вадим
Там надобно все расписать. ( Паскаль)
Андрей Козарцев
Условие быстрей всего
2 ответа
Ангелина Пермская
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программка не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('h='),-99,99); a.Println;
var p:=ReadInteger('P=');
var i:=a.FindIndex(t-gt;t=p);
if igt;=0 then Writeln('Номер элемента ',i+1)
else Writeln('Нет такового элемента')
end.
Образцы
h= 20
-57 15 -50 89 -25 -85 -75 12 57 92 61 1 36 -78 4 -1 30 12 16 -71
P= 66
Нет такового элемента
h= 13
15 86 57 69 -58 -78 -20 14 -63 -92 -16 -40 73
P= 14
Номер элемента 8
// Внимание! Если программка не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('h='),-99,99); a.Println;
var p:=ReadInteger('P=');
var i:=a.FindIndex(t-gt;t=p);
if igt;=0 then Writeln('Номер элемента ',i+1)
else Writeln('Нет такового элемента')
end.
Образцы
h= 20
-57 15 -50 89 -25 -85 -75 12 57 92 61 1 36 -78 4 -1 30 12 16 -71
P= 66
Нет такового элемента
h= 13
15 86 57 69 -58 -78 -20 14 -63 -92 -16 -40 73
P= 14
Номер элемента 8
Змеева
Таисия
const nmax=100;
var a:array[1..nmax] of integer;
n,i,j,р:integer;
begin randomize;
repeat write('Размер массива А от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив A');
for i:=1 to n do begin a[i]:=random(112);
write(a[i]:4) end;
writeln; write('Введите число для поиска р=');
readln(b); i:=1; встаем в начало массива
j:=0;пока числа Р нет
while (ilt;=n)and(j=0) doпока не конец массива и не отыскали
if a[i]=b then j:=1если отыскали, все
else i:=i+1;по другому идем далее
if j=1 then write('Число ',b,' в массиве есть')
else write('Числа ',р,' в массиве нет');
end.
var a:array[1..nmax] of integer;
n,i,j,р:integer;
begin randomize;
repeat write('Размер массива А от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив A');
for i:=1 to n do begin a[i]:=random(112);
write(a[i]:4) end;
writeln; write('Введите число для поиска р=');
readln(b); i:=1; встаем в начало массива
j:=0;пока числа Р нет
while (ilt;=n)and(j=0) doпока не конец массива и не отыскали
if a[i]=b then j:=1если отыскали, все
else i:=i+1;по другому идем далее
if j=1 then write('Число ',b,' в массиве есть')
else write('Числа ',р,' в массиве нет');
end.
Боря
Спасибо огромное
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Облако тегов