Кто смыслит в информатике, решить номер один. воть: сформируйте массив, содержащий 15 элементов ,с датчику случайных чисел. получите новый массив, каждый элемент которого равен сумме соответствующего элемента
исходного массива и его индекса. в полученном массиве удвойте элементы, которые меньше заданного с клавиатуры числа а, и найдите их сумму . выведите на экран исходные и полученные результаты

program xxx; var    b, c : array [1..15] of integer;     i, s, a : integer;

begin//подключаем датчик случайных чисел    randomize; //цикл заполняющий массивы     for i: =1 to 15 do          begin                b[i]: =random(100);                 c[i]: =(b[i] + i);             end; //выводим на экран 1ый массивwrite('первый массив: '); for i: =1 to 15 do    begin        write(b[i],'  ')    end; writeln(''); //выводим на экран 2ой массивwrite('второй массив: '); for i: =1 to 15 do    begin          write(c[i],' ')    end; writeln('');

//вводим число аwrite('введите число а=');

readln(a);

//формируем 3-ий массив и находим сумму эоементов меньших а

s: =0; for i: =1 to 15 do    if c[i]< a then begin c[i]: =c[i]* 2; s: =s+c[i]; end;

//выводим на экран 3-ий массивwrite('третий массив: '); for i: =1 to 15 do    begin          write(c[i],' ')    end; writeln('');

writeln('сумма элементов меньших а=', s);

readlnend.

эти числа заданы в двоичной системе счисления, переведем их в десятичную и решим :

111100% =  60% девочек

1100 = 12 мальчиков

12 мальчиков составляют 40% учащихся в классе

составим пропорцию

12 - 40%

х  - 100%

х = 12 * 100 : 40 = 30

ответ. в классе 30 учеников.

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.