uses crt; var i,j,k,n,sum:integer; a:array[1..100] of integer; flag:boolean; begin flag:=false; writeln('Input N'); read(n); writeln('Input elements'); for i:=1 to n do read(a[i]); for i:=1 to n do for j:=1 to n do for k:=1 to n do if (i<>j) and (j<>k) and (i<>k) then if a[i]+a[j]+a[k]=0 then f flag=false then writeln('No'); end. uses crt; var i,j,k,n,sum:integer; a:array[1..100] of integer; flag:boolean; begin flag:=false; writeln('Input N'); read(n); writeln('Input elements'); for i:=1 to n do read(a[i]); for i:=1 to n do for j:=1 to n do for k:=1 to n do if (i<>j) and (j<>k) and (i<>k) then if a[i]+a[j]+a[k]=0 then f flag=false then writeln('No'); end.
Const n=5; m=3; var x,y:array[1..n] of real; i:integer; t:boolean; begin for i:=1 to n do read(x[i]); for i:=1 to n do if x[i]>m then y[i]:=x[i]; t:=true; while t do begin t:=false; for i:=1 to n-1 do if ((y[i]<=m) or (y[i]>y[i+1])) and (y[i+1]>m) then begin t:=true; y[i]:=y[i]+y[i+1]; y[i+1]:=y[i]-y[i+1]; y[i]:=y[i]-y[i+1] end end; for i:=1 to n do if y[i]>m then write(y[i],' ') else break; writeln; for i:=1 to n-1 do begin if y[i]<=m then break; if y[i]=y[i+1] then begin if t=false then begin t:=true; write(i,' ') end; write(i+1,' ') end else t:=false end end.
ответ: 8 цветов