помогите пожалуйста...элементы одномерного массива С(А)получаются расчетом по формуле С(А)=корень из (а) минус cos(а),где а-позиция элемента в массиве С(А)необходимо определить максимальный элемент в сформированном массиве,подсчитать сумму элементов,находящихся до максимального ,а из элементов стоящих после максимального сформировать новый массив D(К)

uses crt;vara,b:array[1..1000] of real;i,n,k,j:integer;max,sum,tmp:real;beginread(n);for i:=1 to n do a[i]:=sqrt(i)-cos(i);max:=a[1];for i:=1 to n do if max<a[i] then begin max:=a[i]; k:=i; end;for i:=1 to k-1 do sum:=sum+a[i];j:=0; tmp:=0;for i:=k+1 to n do begin tmp:=a[i]; j:=j+1; b[j]:=tmp; end;writeln('Получившийся массив: ');for i:=1 to n do write(a[i]:3:3,' ');writeln;writeln('Сумма до максимального: ');writeln(sum:3:3);writeln('Массив после максимального: ');for i:=1 to j do write(b[i]:3:3,' ');end.