1. заполнить массив из 10 элементов случайными числами в интервале -10..10 и выполнить циклический сдвиг влево без первого элемента 2. заполнить массив из 10 элементов случайными числами в интервале 0..4 и вывести номера всех элементов равных x

// pascalabc.net 3.3 1. begin   var a: =arrrandom(10,-10,10); a.println;   a: =a[1: ]; a.println; end. пример: 7 4 0 -4 0 8 5 -6 -9 -8 4 0 -4 0 8 5 -6 -9 -8 2. begin   var a: =arrrandom(10,0,4); a.println;   var x: =readinteger('x =');   a.indexesof(z-> z=x).select(z-> z+1).println; end. пример: 2 1 3 0 4 2 3 2 3 0 x = 3 3 7 9

программа на паскале:

program a1;

var i, j : integer;

      s : real;

      a: array [1..5, 1..6] of real;

      b: array [1..6] of real;

begin

  for i: =1 to 5 do

    for j: =1 to 6 do

        readln(a[i,j]);

  for j: =1 to 6 do

    begin

        s: =0;

        for : =1 to 5 do

            s: =s+a[i,j];

        b[j]: =s

    end;

  write ('полученный массив в: ');

  for j: =1 to d do

    write(b[j]);

  readln

end. 

а)

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.