Pascalabc. net, обязательно через массивы, . напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 6. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 6.

const n=100;

var i,sum: integer;

    a: array[1..n] of integer;

begin

  for i: =1 to n do begin

    readln(a[i]);

    if(a[i] = 0) then

      break;

  end;

  for i: =1 to n do begin

    if(a[i] < > 0) then begin

      if(a[i] mod 6 = 0) and (a[i] mod 10 = 6) then

        sum: =sum + a[i];

    end;

  end;

  writeln(sum);

end.

как вариант с динамическим массивом и вычислением за один

var

    d : array of integer : = new integer[0];

    a, s : integer;

begin

    repeat

        read(a);

        if (a < = 300) and (a > 0) then begin

            setlength(d, d.length+1);

            d[d.length-1] : = a;

            if (a mod 10 = 6) and (a mod 6 = 0) then s += a;

        end;

    until (a = 0) or (d.length = 100);

    writeln(s);

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.