Регистрация
kmodeste
12.04.2023 13:39
Информатика
Есть ответ 👍

Різниця між максимальним и мінімальним значенням вибірки

296
366
Посмотреть ответы 1

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

markthebest95
markthebest95
4,7(27 оценок)
Var a: array of integer; n,i,p,i1,i2: integer; begin write('n = '); readln(n); setlength(a,n); randomize; a[0]: =random(50)+100; write(a[0]: 4); for i: =1 to n-1 do   begin   a[i]: =a[i-1]-random(11);   write(a[i]: 4);   end; writeln; p: =a[0]-a[n-1]; writeln('p = ',p); i1: =0; i2: =n-1;   repeat i: =(i1+i2) div 2; if a[i]> p then i1: =i1+1; if a[i]< p then i2: =i2-1; until (a[i]=p)or(i1> =i2); if a[i]=p    then writeln('i = ',i)    else writeln('искомого элемента нет'); end. пример: n = 20   142 139 135 129 120 120 120 113 107 106 104   99   89   88   81   72   71   70   60   54 p = 88 i = 13

Популярно: Информатика