Составить программу для нахождения произведения элементов массива. В массиве 30 элементов. Все числа задаются с клавиатуры решить

var a:array[1..30] of real;

i: integer;

p:real;

begin

 p:=1;

 for i:=1 to 30 do

   readln(a[i]);

 for i:=1 to 30 do

   p:=p*a[i];

 writeln(p);

end.

Объяснение:

uses crt; var

  v,r,h: real; begin  write('r='); readln(r);   write('h='); readln(h);   v: =pi*sqr(r)*h;   write('v=',v); end.

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

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

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

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

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

12 - 40%

х  - 100%

х = 12 * 100 : 40 = 30

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