Excel vba basic дан массив а(12) и число с. если среднее арифметическое элементов вектора меньше с, то заменить максимальный элемент массива на полусумму среднего арифметического и среднего , иначе найти сумму тех элементов массива, чтя полусумма с минимальным кратна 2. заменить этим значением каждый третий элемент массива.

vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.

a в квадрате плюс b в квадрате:

  sqr(a) + sqr(b);

var

s,s1: real;

k: integer;

begin

s: =10;

k: =1;

while s< 20 do

begin

s: =s*1.1;

k: =k+1;

end;

writeln('в ', k,' день он пробежит 20 км');

s: =10;

s1: =10;

k: =1;

while s< 200 do

begin

s: =s+s1*1.1;

s1: =s1*1.1;

k: =k+1;

end;

writeln('в ', k,' день суммарный пробег превысит 200 км');

end.

(a*h)+(b*h)+(a*h)+(b***h3)

или

2*(a*h)+2*(b***h3)

если на 1 кв метр 200 грамм  то 

(2*(a*h)+2*(b***h3))*200=        ответ будет  в граммах

расход обычно указывается на кв  метр : )