Кто смыслит в информатике, решить номер один. воть: сформируйте массив, содержащий 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.

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.

3+3-3: 3=5

3-3+3+3=6

3: 3+3+3=7

3*3-3: 3=8

3*3*3: 3=9

3* 3+3: 3 = 10