uses crt; var a,b:array[1..1000] of real; i,n,k,j:integer; max,sum,tmp:real; begin read(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.
uses crt;
var
a,b:array[1..1000] of real;
i,n,k,j:integer;
max,sum,tmp:real;
begin
read(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.