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

297

419

Посмотреть ответы 2

Ответы на вопрос:

aadiiii1

Информатика

4,4(49 оценок)

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

Nastya1111113466

Информатика

4,5(18 оценок)

// pascalabc.net 3.2, сборка 1338 от 16.11.2016 begin var a: =arrrandom(10,0,90); a.println; a: =a.select(x-> x.isodd? 3*x: 0).toarray; a.println end. пример 83 16 76 62 53 57 28 24 10 29 249 0 0 0 159 171 0 0 0 87