Написать программу на с++. вариант 14

Алистик тебе почтой россии выслать или через знакомых передать? в можно вывести формулу, но мне лень, сделаем через цикл. отдел +; использует вывод из "", приём из ""; пер   дрожжи, процент, расход, дней: вещ;   сч: цел; указ   дрожжи : = 120;   вывод.цепь("p: "); процент : = приём.число();   вывод.цепь("tx: "); расход : = приём.число();   вывод.цепь("tt: "); дней : = приём.число();   от сч : = 1 до дней вып     дрожжи : = дрожжи + дрожжи * (процент / 100) - расход   кон;   вывод.чвещ("^%g", дрожжи, 0, 0, 0) кон .

в данной программе предполагается что массив целочисленный 

program massiv;

uses crt;

var a: array[1..10] of integer;

        temp,max,i: integer;

begin

    clrscr;  

 

    for i: =1 to 10 do

          begin

              write('введите   ',i, 'элемент массива: ' );

              readln(a[i]);  

          end;

    writeln;

 

     

 

  write('исходный массив: ');

max: =a[1];  

 

  for i: =1 to 10 do

      begin

          write(a[i])

          write('   ');

        if (a[i]> max) tnen max: =a[i];    

      end;  

 

  temp: =a[6];

  a[6]: =a[9];

a[9]: =temp;

 

 

 

  writeln;

  write('массив после обмена: ');  

for i: =1 to 10 do

      begin

          write(a[i])

          write('   ');  

      end;

writeln;  

writeln('максимальный элемент массива: ',max);

      readkey;

 

  end.