Ответы на вопрос:
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.
Популярно: Информатика
-
Виктория4111612.03.2023 17:10
-
Алина1598923.02.2020 06:48
-
supersattarova25.11.2022 13:08
-
putWrite118.03.2021 07:14
-
Елизавета9992917.02.2020 05:03
-
akaspiyskaya06.05.2022 01:55
-
аяука1009.09.2020 14:01
-
anonim00000227.11.2020 05:26
-
fefmweoiwefio03.04.2020 06:47
-
KrisKvon18.11.2022 18:48