с написанием программы на Lazarus. В listbox1 записывается последовательность a1,a2,...,a9. Отобрать из неё элементы в listbox2 которые расположены между максимальным и минимальным элементами. Вывести эти элементы и их индексы.

program task31153145; const  N = 10; var  arr: array[1..N] of integer;  S, indexOfFifty: integer;  haveFifty: boolean; begin  haveFifty := false;  for var i := 1 to N do    begin      arr[i] := Random(100);      if (arr[i] > 10) and (arr[i] < 30) then        S := S + arr[i];          if arr[i] = 50 then            begin              indexOfFifty := i;              haveFifty := true;            end;    end;  if haveFifty = true then    Writeln('В МАССИВЕ ЕСТЬ ЧИСЛО 50, ЕГО ИНДЕКС = ', indexOfFifty)  else    Writeln('В МАССИВЕ НЕТ ЧИСЛА 50');  Writeln('S = ', S); end.

При  решении  целого  ряда  задач  Леонард  Эйлер  использовал  идею  изображения  множеств  с кругов  и  они  получили  название  «круги  Эйлера». 

С этих  кругов  Эйлер  изобразил  и  множество  всех  действительных  чисел: 

·     N  —  множество  натуральных  чисел, 

·     Z  —  множество  целых  чисел, 

·     Q  —  множество  рациональных  чисел, 

·     R  —  множество  всех  действительных  чисел. 

 
В  нашем  классе  24  ученика.  Все  они  хорошо  провели  зимние  каникулы.10  человек  катались  на  лыжах,  16  ездили  на  каток,  а  12  —  лепили  снеговиков.  Сколько  учеников  смогли  покататься  и  на  лыжах,  и  на  коньках,  и  слепить  снеговика?

А  —  множество  ребят,  катающихся  на  лыжах

В  —  множество  ребят,  катающихся  на  коньках

С  —  множество  ребят,  лепивших  снеговиков

Решение

Пусть  х  —  число  ребят, 

которые  успели  за  эти  каникулы  всё!

(12  -  х)  +  (16  -  х)  +  (10  -  х)  +  х  =  24

ответ:  7  ребят