Вбазе данных хранится 1 048 576 = 2^20 записей. оцените количество сравнений, которое придётся сделать при использовании линейного и двоичного поиска по одному из полей. во сколько раз быстрее работает двоичный поиск?

Линейный поиск в худшем случае сравнит все элементы, 2^20 сравнений. бинарный поиск в худшем случае сделает примерно log(2^20) = 20 сравнений. бинарный поиск работает в 2^20 / 20 ~ 50  000 быстрее

Program название программы; {$apptype console} uses     sysutils; var     a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,  s: integer; begin     writeln('enter 14 marks');     readln(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14);               s: =(a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14) div 14;     writeln('average ', s);     readln end. название программы - замените на название программы (на  программа проверена в borland delphi 7. 

Программа №1. program название программы; {$apptype console} uses     sysutils; var     a, b, h, s: real; begin     writeln('enter a, b and h');     readln(a, b, h);         s: =(0.5*(a+b))*h;     writeln('area of the trapezoid=', s);     readln; end.программа №2. program  название программы; {$apptype console} uses     sysutils; var     a, b, s: integer; begin     writeln('enter the price and quantity');     readln(a, b);         s: =a*b;     writeln('cost of purchase=', s);     readln; end. программа №3. program название программы; {$apptype console} uses     sysutils; var     a, b, w: real; begin     writeln('enter the speed and time');     readln(a, b);         w: =a*b;     writeln('way=', w);     readln; end. вместо " названия программы" напишите название вашей программы. так как в некоторых не оговорено, что числа целые или нет, я выбрал на всякий случай вещественный(real).