Написать программу, которая запрашивает массив из n элементов и увеличивает все элементы массива на максимальный элемент. протестировать программу на массивах размерностью 8 и 10 элементов.

Program z1;         var a: array[1..100] of integer;         n,i: byte; ma: integer; begin         write('n='); readln(n);         for i: =1 to n do begin                 write(i,')'); readln(a[i])         end;         ma: =a[1];         for i: =1 to n do begin                 if a[i]> ma then begin                         ma: =a[i]                 end         end;         for i: =1 to n do begin                 a[i]: =ma         end;         writeln('test n=',n);         for i: =1 to n do begin                 writeln(a[i])         end;         readln end.

1. записать числа встолбик, так чтобы цифры самого младшего разряда чисел (единицы) расположились одна под другой (на одной вертикали).

2. вычесть цифры младшего разряда. примечание - если вычитаемое больше уменьшаемого, то следует занять единицу из старшего разряда и после этого вычесть.

3. записать результат под горизонтальной чертой на вертикали единиц.

4. повторить пункты 2 и 3 для всех разрядов с учетом переносов из старших разрядов.