Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. вывести созданный массив на экран, расположив элементы в одну строку через пробелы. посчитать общее количество элементов, кратных 3 и нечетных элементов и вывести на экран

Program titan; var h,b,i,x,y: integer; a: array[-100..100] of integer; begin randomize; x: =100; y: =-100; for i: =1 to 30 do begin a[i]: =random(x-y+1)+y; write(a[i],' '); end; for i: =1 to 30 do begin if ((a[i] mod 3)=0)and mod 2)< > 0)) then begin b: =b+1; end; end; writeln; writeln('количество равно ',b); writeln; end.

Пусть выбраны гирьки с массами m1, m2, mn и ими удалось массу x.  тогда имеет место равенство x = a1 * m1 + a2 * m2 + + an * mn, где ai = 0, если i-ая гирьке не участвовала в взвешиваниях, -1, если лежала на той же чаше весов, что и масса, которкю нужно отмерить, и +1, если на другой чаше весов.  каждый из коэффициентов принимает одно из трёх значений, тогда при n гирек можно отмерить не более, чем 3^n различных масс.  3^3 < 40 + 1 < 3^4, значит, гирек нужно не менее четырёх.  докажем, что взяв гирьки с массами 1, 3, 9 и 27, можно отмерить любую массу от 1 до 40. будем это делать по индукции, доказав, что при гирек 1, 3, 9, 3^k можно отмерить любую массу от 1 до (3^k - 1)/2. база индукции.  при одной гирьки массой 1 действительно можно отмерить массу 1. переход.  пусть для k = k' всё доказано. докажем и для k = k' + 1. - если нужно отмерить массу x < = (3^k' - 1)/2, то это можно сделать при k' гирек.  - пусть надо отмерить массу (3^k' - 1)/2 < x < = (3^(k' + 1) - 1)/2. кладём на другую чашу весов гирьку массой 3^k'. тогда остаётся нескомпенсированная масса |x - 3^k'| < = (3^k' - 1)/2, которую, по предположению, можно получить. ура! ответ. 1, 3, 9, 27.