Вянваре 1кг картофеля, 1л молока , 1дес яиц стоили по аруба-произвольное и может меняться) . ежемесячно цена картофеля увеличивалась на 0, 5% по отношению к предыдущему месяцу , цена молока-на 2% , цена яиц на 1%. описать таблицу в которой будет прослеживаться ежемесячное изменение цены каждого продукта в течение двух кварталов с января по июнь (в режиме отображения формул) оч нужно

Рисуешь таблицу в excel, в a1 пустая клетка,  по горизонтали месяцы (b1-g1), по вертикали продукты (a2-a4). в январе (b2, b3, b4)  пишешь в каждый продукт его начальную цену, в феврале (c2, c3, c4) пишешь  формулы картофель: c2=b2*1,005, молоко: c3=b3*1,02, яйца: c4=b4*1,01 потом копируешь столбец с во все столбцы от d до g.

Uses crt; var i,j,k,n,max: integer; a: array[1..100] of integer; procedure rmassr; begin       for i: =1 to n do       a[i]: =random(10); end; procedure rmassy; begin       for i: =1 to n do       readln(a[i]); end; procedure maxe; begin max: =a[1];       for i: =2 to n do begin             if a[i] > max then max: =a[i];       end;       writeln('max element = ', max); end; procedure wmass; begin       for i: =1 to n do       write(a[i],' ');       writeln; end; begin clrscr; randomize; write('длина массива'); readln(n); write('1-random; 2- в ручную '); readln(k); if k=1 then rmassr() else rmassy(); wmass(); maxe(); readln end.

Program z1;   var     a, b: integer;   begin     a: =0;     readln(b);     a: =a+b;     readln(b);     a: =a+b;     readln(b);     a: =a+b;     readln(b);     a: =a+b;     write(a);   end.или    program z1;   var    a, b: integer;   procedure add;     begin      readln(b);       a: =a+b;     end;         begin    a: =0;     add();     add();     add();     add();     writeln(a);   end.