Pascalabc.net 3.4.0, сборка 1675 от 12.06.2018 внимание! если программа не работает, обновите версию! procedure println(self: array of real); extensionmethod; begin self.batch(5).foreach(s-> begin foreach var p in s do write(p: 15: 10); writeln end); writeln(min(15*(self.count div 2),38)*'- ') end; begin var m: =arrgen(readinteger('n='),i-> cos(i),1); m.println; var (a,b): =readreal2('введите границы a b: '); writeln('число элементов на интервале [',a,',',b,'] равно ', m.where(t-> t.between(a,); write('сумма элементов, расположенных после максимального, равна '); var imax: =m.indexmax; (m? [imax+1: ].sum).println; writeln('элементы, по убыванию модулей'); m: =m.orderbydescending(t-> abs(; m.println; end.
Var ar:array of integer; n,k,i,j:integer; b1:boolean; begin read(n,k); b1:=false; setlength(ar,n); n:=n-1; writeln('Enter array:'); for i:=0 to n do readln(ar[i]); for i:=0 to n-k+1 do begin; for j:=i to k+i-1 do if ar[i]=ar[j] then b1:=true else b1:=false; if b1=true then break; end; if b1=true then for i:=0 to n do begin; if ar[i]>0 then ar[i]:=ar[i]*(-1); write(ar[i]:4); end else writeln('Рішення не існує'); end.
Пример ввода: 5 //n 4 //k 2 1 1 1 1 Пример вывода: -2 -1 -1 -1 -1
