Написать программу поиска элемента массива, равный заданному числу 17, используя...

August 2022 1 5 Report

Написать программу поиска элемента массива, равный заданному числу 17, используя поиск с барьером.
Решить на PascalABC
Оформить в виде процедуры.

Answers & Comments

petyaGavrikov

Verified answer

Const n=10;
type ar=array[1..n+1] of integer;
var
a:ar; i,p:integer;
procedure pr(var a:ar; p:integer; var k:integer);
begin
k:=1;
while a[k]<>p do k:=k+1;
end;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(31);
write(a[i]:4);
end;
writeln;
p:=17;
a[n+1]:=p;
pr(a,p,i);
if i<n
then writeln('Значение 17 найдено, номер элемента = ',i)
else writeln('Значения 17 в массиве нет');
end.

Пример:
Массив A:
14 5 7 17 25 15 28 0 24 0
Значение 17 найдено, номер элемента = 4

1 votes Thanks 1

Answers & Comments

Verified answer

dano celoe chislo ngt 0 sformirovat i vyvesti celochislennyj massiv razmeraa0b17389fad3aa6ae16f56355836e982 25767

yap java temavvod i vyvod dannyh struktura programmy na yap java operator pris

yap java celochislennyj tip dannyh dano trehznachnoe chislo ispolzuya odnu operac

sozdat massiv razmernostyu nn elementov i zapolnit ego po obrazcu naprimer d

yap javaoperator varianta arifmeticheskie dejstviya nad chislami pronumerovany sle

yap java uslovnyj operator dany dva celyh chisla a i b a lt b najti summu k

abc pascal vyvesti v odnu stroku ttuuvvww

yap javauslovnyj operator dany tri celyh chisla najti kolichestvo polozhitelnyh

abc pascal najti kolichestvo nulevyh cifr stroki

yap java napisat programmu pozvolyayushuyu poluchit slovesnoe naimenovanie shkolnyh

рекомендуемые вопросы

Helpful Links

Helpful Social