Аськин, баськин и васькин стали свидетелями ограбления банка. во время расследования аськин сказал, что взломщики приехали на синей “тойоте”. баськин считает, что это был красный “bmw”, а васькин утверждает, что это был “форд-фокус”, но не синий. выяснилось, что каждый из них назвал неправильно либо марку, либо цвет ма- шины. на каком автомобиле приехали преступники?

баськин и васькин назвали правильно цвет (красный, не синий), а аськин - марку автомобиля (тойота).

ответ - красная тойота

Const n=20; var a: array[1..n] of integer; i,j,t,i1,i2,x: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin   a[i]: =random(15);   write(a[i],' ') end; writeln; for i: =1 to n-1 do   for j: =1 to n-i do     if a[j]> a[j+1] then     begin t: =a[j]; a[j]: =a[j+1]; a[j+1]: =t end; writeln('отсортированный массив: '); for i: =1 to n do write(a[i],' '); writeln; write('x = '); readln(x); i1: =1; i2: =n; repeat i: =(i1+i2) div 2; if a[i]< x then i1: =(i1+i2) div 2+1; if a[i]> x then i2: =(i1+i2) div 2-1; until (a[i]=x)or(i1> i2); if a[i]=x then    begin   while (i> 0)and(a[i]=x) do i: =i-1;   i: =i+1; j: =i;   while (i< =n)and(a[i]=x) do i: =i+1;   writeln('число ',x,' встречается ',i-j,' раз(а)');   end   else writeln('число ',x,' не встречается'); writeln; end. пример: исходный массив: 4 13 5 3 14 12 12 8 9 6 3 2 4 4 14 1 12 2 5 9  отсортированный массив: 1 2 2 3 3 4 4 4 5 5 6 8 9 9 12 12 12 13 14 14  x = 5 число 5 встречается 2 раз(а)

Const   t = 10; // количество чисел в массиве var   a: array[1..t] of integer;   i, min, k, tmp, klv, z: integer;   b: boolean; begin     for i : = 1 to t do       a[i] : = random(10) + 1;     //рандом чисел от 1 до 10     writeln('массив: ');   for i : = 1 to t do       write(' ', a[i]: 2);   writeln;     for i : = 1 to t - 1 do       for k : = i + 1 to t do           if a[i] > a[k] then           begin               tmp : = a[k];               a[k] : = a[i];               a[i] : = tmp;           end;     writeln('после сортировки: ');   for i : = 1 to t do       write(' ', a[i]: 2);   writeln;     klv : = 0;   writeln('введите число x: ');   readln(z);   for i : = 1 to t do       if a[i] = z then       begin           b : = true;           inc(klv);       end;   if b then   begin       writeln('число ', z, ' встречается ', klv, ' раз(а).');   end;     if b = false then writeln('число ', z, ' не встречается.'); end.